xin hỏi cách tính làm tròn số trong access với

[nguyendinhhieu]

tôi muốn viết hàm làm tròn số trong Access vd như:
1.075.450 làm tròn thành 1.075.500
thì phải viết thế nào?
ai biết chỉ giáo cho. tui đang vướng mắc chỗ này làm chậm hết cả tiến độ.
Ai biết mách nước giùm với...:005:

 

[hai2hai]

'// Tested in VB (not in Access and Excel)
Private Sub Form_Load()
'// Test round
'// ?Round(1075450/100,0) * 100 '// <-- Original Round() function doesn't work as we expected. But we can try these two simple solutions below:
MsgBox RoundNum(1075450 / 100) * 100
MsgBox Format$(1075450 / 100, "#00") * 100 '// Return the same result
End Sub

Private Function RoundNum(Number As Double) As Long
If Int(Number + 0.5) > Int(Number) Then
RoundNum = CLng(Number) + 1
Else
RoundNum = CLng(Number)
End If
End Function

Hope that helps!

PS: Có nhiều code kiểu này lắm, chỉ mò lúc là ra cả mớ mà.

Bạn có thể viết lấy hàm round để khi sử dụng chỉ cần MyRound(1075450, -2) là nó có thể return 1075500. (-2 tức là làm tròn ở mức hàng trăm, v.v...)

More samples: PSC