Private Sub Command1_Click() Dim a As Double Dim b As Currency a = 1.13 b = 1.13 Debug.Print Int(a * 100), Int(b * 100) End Sub
结果是112 113
处理货币型数据还得用Currency靠谱些
Private Sub Command1_Click() Dim a As Double Dim b As Currency a = 1.13 b = 1.13 Debug.Print Int(a * 100), Int(b * 100) End Sub
结果是112 113
处理货币型数据还得用Currency靠谱些
转载于:https://www.cnblogs.com/Blessing/p/4225948.html