在VB 中如何实现四舍五入？

[hcyzs]

本人在编写工资软件， 栏目类型为货币类型， 用SQL 计算个人所得税， 但结果为小数点后出现3 位数， 请问如何实现四舍五入呢？

[Tyro]

可以这样：比如dblMoney
dblMoney=clng(dblMoney*100)/100.0
或者
dblMoney=cdbl(format(dblMoney,"0.00"))

[KitSdk]

也！50分这么容易！！

看这个函数！MainNumber是要转化的数，Number要保留的位数

Function Round(MainNumber As Double, Number As Integer) As Double
Dim C As Double
Dim D As String
C = Int((MainNumber * 10 ^ (Number + 1)))
D = Right(CStr(C), 1)
If CDbl(D) >= 5 Then
C = C + 10
C = Int(C / 10)
Else
C = Int(C / 10)
End If
Round = C / 10 ^ Number
Exit Function
End Function