Đá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] Cấm không cho dowload video trên Web - Phần này sai diễn đàn mong ad đừng xóa nhé cannguyen 2 172 23-07-17, 11:42 PM
Bài mới nhất: tt1212
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 1 94 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  [Help] Về việc in ấn trong Access JJKey 10 385 09-06-17, 12:37 PM
Bài mới nhất: tranthanhan1962
  [Help] hàm edate trong access anhnt 2 152 13-05-17, 07:03 PM
Bài mới nhất: anhnt
  Xin giúp liên kết đường dẫn trong access audition 14 5,662 11-05-17, 11:50 AM
Bài mới nhất: cpucloi

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ơ