source: Include/com/currency.ab@ 192

' com/currency.ab

Class Currency
Public
    Const Function Operator +() As Currency
        Return New Currency(This)
    End Function

    Const Function Operator -() As Currency
        Dim ret = New Currency
        VarCyNeg(This.cy, ret.cy)
        Return ret
    End Function

    Const Function Operator *(y As Currency) As Currency
        Dim ret = New Currency
        VarCyMul(This.cy, y.cy, ret.cy)
        Return ret
    End Function

    Const Function Operator *(y As Long) As Currency
        Dim ret = New Currency
        VarCyMulI4(This.cy, y, ret.cy)
        Return ret
    End Function

    Const Function Operator *(y As Int64) As Currency
        Dim ret = New Currency
        VarCyMulI8(This.cy, y, ret.cy)
        Return ret
    End Function

    Const Function Operator /(y As Variant) As Double
        Dim vx = New Variant(This)
        Dim ret= vx / y
        Return ret.ValR4
    End Function

    Const Function Operator /(y As Currency) As Double
        Return This / New Varinat(y)
    End Function

    Const Function Operator +(y As Currency) As Currency
        Dim ret = New Currency
        VarCyAdd(This.cy, y.cy, ret.cy)
        Return ret
    End Function

    Const Function Operator -(y As Currency) As Currency
        Dim ret = New Currency
        VarCySub(This.cy, y.cy, ret.cy)
        Return ret
    End Function

    Const Function Abs() As Currency
        VarCyAbs(This.cy, Abs.cy)
    End Function

    Const Function Fix() As Currency
        VarCyFix(This.cy, Fix.cy)
    End Function

    Const Function Int() As Currency
        VarCyInt(This.cy, Int.cy)
    End Function

    Const Function Round(c = 0 As Long) As Currency
        VarCyRound(This.cy, c, Round.cy)
    End Function
Private
    cy As CY
End Class