USD.btc

Namespace Sitesource.Currency
    Public Structure USD
        Implements ICurrency
        Public Const Symbol As String = "$"
        Public Const Code As String = "USD"
        ''' <summary>
        ''' New
        ''' </summary>
        ''' <param name="value"></param>
        ''' <remarks></remarks>
        Public Sub New(ByVal value As Decimal)
            _value = value
        End Sub
        ''' <summary>
        ''' Parse
        ''' </summary>
        ''' <param name="value"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function Parse(ByVal value As String) As USD
            Return New USD(Decimal.Parse(value))
        End Function
        ''' <summary>
        ''' Get currency code.
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function GetCurrencyCode() As String Implements ICurrency.GetCurrencyCode
            Return Code
        End Function
        ''' <summary>
        ''' Get currency symbol.
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function GetCurrencySymbol() As String Implements ICurrency.GetCurrencySymbol
            Return Symbol
        End Function
        ''' <summary>
        ''' ToString
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Overrides Function ToString() As String
            Return _value.ToString()
        End Function
        ''' <summary>
        ''' Equals
        ''' </summary>
        ''' <param name="obj"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overrides Function Equals(ByVal obj As Object) As Boolean
            If TypeOf obj Is USD Then
                Return _value = CType(obj.Value, USD).Value
            ElseIf TypeOf obj Is DBNull Then
                Return False
            Else
                Return _value = obj
            End If
        End Function
        ''' <summary>
        ''' Return a culture invariant string representation of the value
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property InvariantString As String Implements ICurrency.InvariantString
            Get
                Return Value.ToString(Globalization.CultureInfo.InvariantCulture)
            End Get
        End Property
        ''' <summary>
        ''' Value
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property Value As Decimal Implements ICurrency.Value
        Public Shared Operator -(ByVal a As USD, ByVal b As USD) As USD
            Return New USD(a.Value - b.Value)
        End Operator
        Public Shared Operator +(ByVal a As USD, ByVal b As USD) As USD
            Return New USD(a.Value + b.Value)
        End Operator
        Public Shared Operator <(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value < b.Value
        End Operator
        Public Shared Operator >(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value > b.Value
        End Operator
        Public Shared Operator <=(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value <= b.Value
        End Operator
        Public Shared Operator >=(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value >= b.Value
        End Operator
        Public Shared Operator =(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value = b.Value
        End Operator
        Public Shared Operator <>(ByVal a As USD, ByVal b As USD) As Boolean
            Return a.Value <> b.Value
        End Operator
        Public Shared Widening Operator CType(ByVal a As USD) As String
            Return a.Value.ToString()
        End Operator
        Public Shared Widening Operator CType(ByVal a As USD) As Decimal
            Return a.Value
        End Operator
        Public Shared Operator /(ByVal a As USD, ByVal b As USD) As USD
            Return New USD(a.Value / b.Value)
        End Operator
        Public Shared Operator /(ByVal a As USD, ByVal b As Int32) As USD
            Return New USD(a.Value / b)
        End Operator
    End Structure
End Namespace