VB中Currency和Double测试一例

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靠谱些