Decimal.Inequality Operator

' Example of the Decimal relational operators.
Imports System
Imports Microsoft.VisualBasic

Module DecRelationalOpsDemo

    Const dataFmt As String = "{0,-47}{1}"

    ' Compare Decimal parameters, and display them with the results.
    Sub CompareDecimals( Left As Decimal, Right As Decimal, _
        RightText As String )

        Console.WriteLine( )
        Console.WriteLine( dataFmt, "Right: " & RightText, Right )

        ' The op_Equality, op_GreaterThan, op_GreaterThanOrEqual, 
        ' op_Inequality, op_LessThan, and op_LessThanOrEqual operators 
        ' must be explicitly coded in Visual Basic. If binary =, >, 
        ' >=, <>, <, or <= are used, the Compare method is called.
        Console.WriteLine( dataFmt, _
            "Decimal.op_Equality( Left, Right )", _
            Decimal.op_Equality( Left, Right ) )
        Console.WriteLine( dataFmt, _
            "Decimal.op_GreaterThan( Left, Right )", _
            Decimal.op_GreaterThan( Left, Right ) )
        Console.WriteLine( dataFmt, _
            "Decimal.op_GreaterThanOrEqual( Left, Right )", _
            Decimal.op_GreaterThanOrEqual( Left, Right ) )
        Console.WriteLine( dataFmt, _
            "Decimal.op_Inequality( Left, Right )", _
            Decimal.op_Inequality( Left, Right ) )
        Console.WriteLine( dataFmt, _
            "Decimal.op_LessThan( Left, Right )", _
            Decimal.op_LessThan( Left, Right ) )
        Console.WriteLine( dataFmt, _
            "Decimal.op_LessThanOrEqual( Left, Right )", _
            Decimal.op_LessThanOrEqual( Left, Right ) )
    End Sub 

    Sub Main( )
        Dim Left As New Decimal( 123.456 )

        Console.WriteLine( _
            "This example of the Decimal relational operators " & _
            "generates the " & vbCrLf & "following output. It " & _
            "creates several different Decimal values " & vbCrLf & _
            "and compares them with the following reference " & _
            "value." & vbCrLf )
        Console.WriteLine( dataFmt, "Left: Decimal( 123.456 )", Left )

        ' Create objects to compare with a 2-hour Decimal.
        CompareDecimals( Left, New Decimal( 1.23456E+2 ), _
            "Decimal( 1.23456E+2 )" )
        CompareDecimals( Left, New Decimal( 123.4567 ), _
            "Decimal( 123.4567 )" )
        CompareDecimals( Left, New Decimal( 123.4553 ), _
            "Decimal( 123.4553 )" )
        CompareDecimals( Left, New Decimal( 123456000, 0, 0, False, 6 ), _
            "Decimal( 123456000, 0, 0, False, 6 )" )
    End Sub 
End Module 

' This example of the Decimal relational operators generates the
' following output. It creates several different Decimal values
' and compares them with the following reference value.
' 
' Left: Decimal( 123.456 )                       123.456
' 
' Right: Decimal( 1.23456E+2 )                   123.456
' Decimal.op_Equality( Left, Right )             True
' Decimal.op_GreaterThan( Left, Right )          False
' Decimal.op_GreaterThanOrEqual( Left, Right )   True
' Decimal.op_Inequality( Left, Right )           False
' Decimal.op_LessThan( Left, Right )             False
' Decimal.op_LessThanOrEqual( Left, Right )      True
' 
' Right: Decimal( 123.4567 )                     123.4567
' Decimal.op_Equality( Left, Right )             False
' Decimal.op_GreaterThan( Left, Right )          False
' Decimal.op_GreaterThanOrEqual( Left, Right )   False
' Decimal.op_Inequality( Left, Right )           True
' Decimal.op_LessThan( Left, Right )             True
' Decimal.op_LessThanOrEqual( Left, Right )      True
' 
' Right: Decimal( 123.4553 )                     123.4553
' Decimal.op_Equality( Left, Right )             False
' Decimal.op_GreaterThan( Left, Right )          True
' Decimal.op_GreaterThanOrEqual( Left, Right )   True
' Decimal.op_Inequality( Left, Right )           True
' Decimal.op_LessThan( Left, Right )             False
' Decimal.op_LessThanOrEqual( Left, Right )      False
' 
' Right: Decimal( 123456000, 0, 0, False, 6 )    123.456000
' Decimal.op_Equality( Left, Right )             True
' Decimal.op_GreaterThan( Left, Right )          False
' Decimal.op_GreaterThanOrEqual( Left, Right )   True
' Decimal.op_Inequality( Left, Right )           False
' Decimal.op_LessThan( Left, Right )             False
' Decimal.op_LessThanOrEqual( Left, Right )      True