Private Sub Command1_Click()
Print 四舍五入(11.111, 2)
Print 四舍五入(11.116, 2)
Print 四舍五入(11.1116, 3)
End Sub
Function 四舍五入(值, 保留位 As Integer) As Double
Dim n As Double
Dim i As Integer
n = 1
For i = 0 To 保留位 - 1
n = n * 10
Next
四舍五入 = Int(值 * n + 0.5) / n
End Function
Function Round4(ByVal Number, ByVal XS As Long)
Round4 = Int(Number * 10 ^ XS + 1 / 2) / 10 ^ XS
End Function