Mega Code Archive
Compare two Decimal values
<![CDATA[
Imports System
Class Sample
Public Shared Sub Main()
Dim f1 As [Decimal] = -5.5D, f2 As [Decimal] = 5.5D
Console.WriteLine(f1.CompareTo(f2))
Console.WriteLine(f1.CompareTo(CObj(f2)))
End Sub 'Main
End Class
]]>