Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Số thập phân trong modurn
#1
Mình có 1 modurn như thế này:

Public Function TLBH(a As String)
Dim db As Database
Set db = CurrentDb
Dim rd As DAO.Recordset
Set rd = db.OpenRecordset("BHXH", dbOpenDynaset)

Dim b As Date
Dim d As Double

If Right(a, 1) = 1 Then
TLBH = 0
Else
rd.MoveFirst
b = rd!NgayThang
Do Until rd.EOF
If rd!NgayThang > b Then
b = rd!NgayThang
TLBH = rd!NguoiLaoDong
End If
rd.MoveNext
Loop
End If
End Function

Mình dùng để lấy tỷ lệ đóng BHXH của người lao động, giá trị cuối cùng TLBH=9.5% và khi xuất ra textbox thì nó làm tròn là 10%.Mình đã thay đổi mục Decimal places=1 thì nó chạy đúng.Ngoài cách đó ra còn cách nào khác không.Mọi người giúp dùm mình vấn đề này với.
Chữ ký của NganDinhNguyen Xin chào, mình là NganDinhNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 265 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  [Hỏi] Cách lưu trữ phần CSDL tách biệt khỏi file access toancvp 5 516 16-07-16, 09:38 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng phần mềm viết bằng Access trong mạng LAN chantroi_19 9 753 21-06-16, 10:33 AM
Bài mới nhất: lmthu
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 258 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ