Đá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
  [Help] Import từ MS Access vào phần mềm Bravo tuanvn291089 1 104 24-10-17, 09:03 PM
Bài mới nhất: maidinhdan
  [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 296 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 172 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  [Help] Về việc in ấn trong Access JJKey 10 714 09-06-17, 12:37 PM
Bài mới nhất: tranthanhan1962
  [Help] hàm edate trong access anhnt 2 278 13-05-17, 07:03 PM
Bài mới nhất: anhnt

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ơ