Dim ds() As Double = {3, 9, -12345, Double.NaN, Double.MaxValue, _
          Double.MinValue, 0}
 
        Array.Sort(ds)
        For Each d As Double In ds
            Debug.WriteLine(d.ToString())
        Next
        Debug.WriteLine("****************************************************")
 
        ds = {3, 9, -12345, Double.NaN, Double.MaxValue, Double.MinValue, 0}
        Array.Sort(Of Double)(ds)
 
        For Each d As Double In ds
            Debug.WriteLine(d)
        Next
 
        Debug.WriteLine("****************************************************")
 
        ds = {3, 9, -12345, Double.NaN, Double.MaxValue, Double.MinValue, 0}
        Array.Sort(Of Double)(ds, New DoubleComparer)
 
        For Each d As Double In ds
            Debug.WriteLine(d)
        Next
        Debug.WriteLine("****************************************************")

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
****************************************************

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist