Nur vorab diesmal ist es eine Frage.
Also ich hab mir einen Code geschrieben um ein Datumarray nach datum zu sortiere, aber ich glaube, dass einige Stellen ganz schön schwach sind. Also wenn ihr was entdeckt was man so nicht machen sollte oder eine bessere Lösung habt bitte Antworten.
Also ich hab mir einen Code geschrieben um ein Datumarray nach datum zu sortiere, aber ich glaube, dass einige Stellen ganz schön schwach sind. Also wenn ihr was entdeckt was man so nicht machen sollte oder eine bessere Lösung habt bitte Antworten.
VB.NET-Quellcode
- Private Function datum_sortieren(ByVal daten() As Date)
- Dim sort(daten.Length - 1) As Date
- Dim min As Date
- For i As Integer = 0 To daten.Length - 1
- sort(i) = daten.Min
- min = daten.Min
- Dim zwischen() As Date = daten
- ReDim daten(zwischen.Length - 2)
- Dim count As Integer = 0
- For i2 As Integer = 0 To zwischen.Length - 1
- If Not zwischen(i2) = min Then
- daten(count) = zwischen(i2)
- count += 1
- End If
- Next
- Next
- Return sort
- End Function