n. def.
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
****************************************************
n. def.
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
****************************************************
n. def.
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
****************************************************

n. def.
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
****************************************************
n. def.
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
****************************************************
-1,79769313486232E+308
-12345
0
3
9
1,79769313486232E+308
n. def.
****************************************************

Public Class DoubleComparer
		Implements IComparer(Of Double)
 
		Public Function Compare(ByVal x As Double, _
		  ByVal y As Double) As Integer _
		  Implements IComparer(Of Double).Compare
 
			' NaN-Wert?
			Dim is_x_undef As Boolean = Double.IsNaN(x)
			Dim is_y_undef As Boolean = Double.IsNaN(y)
 
			' Vergleich durchführen 
			If is_x_undef And is_y_undef Then
				Return 0
			ElseIf is_x_undef Then
				Return 1
			ElseIf is_y_undef Then
				Return -1
			ElseIf x = y Then
				Return 0
			ElseIf x > y Then
				Return 1
			Else
				Return -1
			End If
		End Function
	End Class