Sortere på dato

<%
Function DateBubble2Dim(TempArray, blnReverse)
    Dim Temp
    Dim i
    Dim NoExchanges
    Do
        NoExchanges = True
        For i = 0 To UBound(TempArray,2) - 1
            If CDate(TempArray(0,i)) > CDate(TempArray(0,i + 1)) = blnReverse Then
                NoExchanges = False
                Temp = TempArray(0,i)
                TempArray(0,i) = TempArray(0,i + 1)
                TempArray(0,i + 1) = Temp
            End If
        Next
    Loop While Not (NoExchanges)

End Function

Dim myArray()
ReDim myArray(0,6)

myArray(0,0) = "01-01-2004"
myArray(0,1) = "25-01-2004"
myArray(0,2) = "02-02-2004"
myArray(0,3) = "05-05-2004"
myArray(0,4) = "30-05-2004"
myArray(0,5) = "28-02-2004"
myArray(0,6) = "12-12-2004"

Call DateBubble2Dim( myArray, true )
Response.Write "<h2>Laveste først</h2><ul>"
For i = 0 To UBound(myArray,2)
    Response.Write "<li>" & myArray(0,i) & "</li>"
Next
Call DateBubble2Dim( myArray, false )
Response.Write "</ul><h2>Højeste først</h2><ul>"
For i = 0 To UBound(myArray,2)
    Response.Write "<li>" & myArray(0,i) & "</li>"
Next
Response.Write "</ul>"

%>

Skarpt!

yellow: Det var snapt så skarpt. Hvis der er 2 ens datoer går den fuldstændig i selvsving og IIS kommer ud og fortæller at scriptet timed out.

Hvad med den her?

Function DateBubble2Dim(TempArray, blnReverse)
    Dim Temp
    Dim i
    Dim NoExchanges
    Do
        NoExchanges = True
        For i = 0 To UBound(TempArray,2) - 1
            If blnReverse AND CDate(TempArray(0,i)) > CDate(TempArray(0,i + 1)) Then
                NoExchanges = False
                Temp = TempArray(0,i)
                TempArray(0,i) = TempArray(0,i + 1)
                TempArray(0,i + 1) = Temp
            Else If NOT blnReverse AND CDate(TempArray(0,i)) < CDate(TempArray(0,i + 1)) Then
                NoExchanges = False
                Temp = TempArray(0,i)
                TempArray(0,i) = TempArray(0,i + 1)
                TempArray(0,i + 1) = Temp
            End If
            End If
        Next
    Loop While Not (NoExchanges)
End Function

Yep - virker

Takker