Số thập phân trong modurn
NganDinhNguyen > 16-04-13, 09:43 PM
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.