Mega Code Archive

 

Categories / VB.Net / Data Types

 

Compare Double values with difference

Module Example    Public Sub Main()         Dim double1 As Double = .33333         Dim double2 As Double = 1/3         Dim difference As Double = Math.Abs(double1 * .0001)                  If Math.Abs(double1 - double2) <= difference Then            Console.WriteLine("double1 and double2 are equal.")         Else            Console.WriteLine("double1 and double2 are unequal.")         End If    End Sub End Module