Sorter Array efter dato

Hvis du taler om VBScript, så er du nok nødsaget til at lave en lille bubblesort (hvis du taler om små mængder data). Men inden du begynder at lave en sorteringsrutine, vil jeg da anbefale dig at bruge flg. datoformat (hvis det er muligt): yymmdd og ikke som nu yyddmm. Med yymmdd kan du bare sammenligne strengrepræsentationen af datoen og sortere efter det, ellers skal du til at skille datoen ad for at sortere dem.

Bubblesort kan se sådan ud:

<%
sub writeData(arr)
  response.write "Array indeholder flg. data:<br>"
  for i = 0 to ubound(arr)
    response.write arr(i) & "<br>"
  next
end sub

data = array("050915","060102","041219","050803","050509","050101")

writeData data

for i = 0 to ubound(data)
  for j = i+1 to ubound(data)
    if data(i) < data(j) then
      tmp = data(i)
      data(i) = data(j)
      data(j) = tmp
    end if
  next
next

writeData data
%>

Hvis du vil sortere i modsat orden, skal du vende sammenligningsoperatoren (<) om i den inderste if-sætning, altså:

if data(i) > data(j) then

Det er så perfekt som det overhovedet kan være.
Du skal have mange tak :)
Smider du et svar

Velbekomme :)

Tak for point :)