Problem mit Datums vergleich
13.03.2007 13:37:44
Philipp
leider funktioniert meine Datumsvergleich nicht. Merkwürdig ist jedoch, dass es zuvor funktioniert hat und ich nicht an diesem Teil des Codes geändert habe!
Die gefunden Dateien sind alle aus diesem Jahr und somit auf jeden Fall größer wie das default Datum 1.1.1950, trotzdem gibt die If Funktion falsch zurück und somit wird das Datum nicht angepasst
newest_date = "01.01.1950 12:00:00"
For c2 = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(c2)) > newest_date Then
newest_date = FileDateTime(.FoundFiles(c2))
file = .FoundFiles(c2)
End If
Next c2
Wo ist mein Fehler? Ich habe zuvor newest_date as Date deklariert und c2 als Long (file ist natürlich als String deklariert.
Grüße,
Philipp