Mega Code Archive
Compare two Double values
<![CDATA[
Imports System
Class Sample
Public Shared Sub Main()
Dim h1 As [Double] = 7.7, h2 As [Double] = -7.7
Console.WriteLine(h1.CompareTo(h2))
Console.WriteLine(h1.CompareTo(CObj(h2)))
End Sub 'Main
End Class
]]>