Đá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
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 34 15-01-17, 01:00 PM
Bài mới nhất: ongke0711
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 107 09-01-17, 06:19 PM
Bài mới nhất: maidinhdan
Question ? cách gán thuộc tính .listindex = giá trị được chọn trong combobox vuga 1 44 08-01-17, 11:42 AM
Bài mới nhất: ongke0711
  ? Đối tượng recordset để truy tìm việc trùng thông tin trong table vuga 3 80 04-01-17, 01:22 AM
Bài mới nhất: vuga
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 260 31-10-16, 10:14 AM
Bài mới nhất: toancvp

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ơ