Imports System
Imports Microsoft.VisualBasic
Module DecCompToEqualsObjDemo
Sub CompDecimalToObject( Left as Decimal, Right as Object,RightText as String )
Try
Console.WriteLine( "{0}" , Left.CompareTo( Right ) )
Catch ex As Exception
Console.WriteLine( ex )
End Try
End Sub
Sub Main( )
Dim Left as New Decimal( 987.654 )
CompDecimalToObject( Left, 987.6539D, "987.6539D" )
End Sub
End Module