[asp/vbscript] hoe datums vergelijken (vartype = 0)

[Batje4]

In een array voeg ik onder andere file.datecreated toe. Deze data wil ik met elkaar vergelijken, om de oudste datum op te halen.

Nu doe ik dat als volgt:

code:

i = 0
highestValueOfArray = arrFiles(0,i)
response.write highestValueOfArray & "   1<br>" 
while i <= ubound(arrFiles,2) 
     if highestValueOfArray < arrFiles(0,i) Then
         highestValueOfArray = arrFiles(0,i)
     End If
 i = i + 1
 Wend
      response.write highestValueOfArray & "  2<br>"

Resultaat: de eerste response.write geeft geen waarde voor highestValueOfArray, en de tweede geeft niet de hoogste waarde.
Als ik de variabelen vervang door integers, dan werkt dit als een tierelier. Iemand een idee?

[gorgi_19]

Cdate() of DateDiff lijken me oplossingen waarnaar je moet kijken.

[Gert]

Voor het vergelijken van datums kan je het beste DateDiff gebruiken.

[Batje4]

Ik heb wat response.writes toegevoegd om te kijken wat eruit komt op verschillende momenten:
De waardes als ik ze toe heb gevoegd aan de array:
9-7-2003 10:00:23
9-7-2003 10:00:35
9-7-2003 10:00:06

De waarde als ik even later de array uitlees:
00:00:00
[snap ik niets van, ik heb alleen de array gevuld en wil deze na het vullen verder verwerken]

vartype met cdate : 7 (dus dat is OK)

max waarde volgens scriptje: 9-7-2003 10:00:06
[hij pakt dus gewoon de laatste waarde]

Het probleem zit dus bij het uitlezen van de array (en cdate helpt ook een handje, waarvoor mijn dank want de vartype bij het uitlezen rechtstreeks uit de array is undefined; diffdate lijkt me ook een goede).

De array wordt als volgt gevuld:

code:

      dim i
      i = 0
      dim arrFiles()
      For Each File in objFolder.Files
        If InStrRev(UCase(File.Name), ".JPG") OR InStrRev(UCase(File.Name), ".JPEG") then
           redim arrFiles(1,i)
           arrFiles(0,i) = File.DateCreated
           response.write  arrFiles(0,i) & "<br>"
           arrFiles(1,i) = File.Name
           i = i + 1
         Else
           Response.Write "FileName: " & File.Name & "<br>"
           Response.Write "Dit is geen .jpg of .jpeg bestand.<br><br>"
         End If
      Next

[ Voor 31% gewijzigd door Batje4 op 09-07-2003 12:10 ]

[j_du_pee]

redim preserve arrFiles(1,i)

lost een hoop op vermoed ik

[ Voor 34% gewijzigd door j_du_pee op 09-07-2003 13:37 . Reden: linkje toegevoegd ]

[Batje4]

lol
j_du_pee, uw aanwijzing was het laatste zetje
Dank allemaal!