Jacer - Mo 19.10.09 09:39
Titel: Datumswerte vergleichen

---

Hey ich habe in einem Programm einen Teil in dem aus einer Datenbank Datumswerte ausgelesen werden um diese für eine Suchfunktion zu testen.
Funktionierte auch wunderbar nur als ich die Software auf einem anderen Rechner installierte tauchte die Fehlermeldung " "" is not a valid date" auf.
Auf anderen Rechnern wiederum lief es einwandfrei von daher bin ich recht ratlos.

Die Datumswerte werden definitiv richtig aus der Datenbank ausgelesen, das hab ich getestet.
Also muss das Problem ja irgendwo in der Variable TDate liegen.

Ich habe also zunächst 2 Variablen im String-Format: DD/MM/YYYY
Eine Minimum, eine Maximum.
Dann eine Dritte Variable, gleiches Format, nach dem gesucht werden soll.

Über StrToDate speicher ich die Strings in TDate-Variablen.
Beispiel: Minimum := StrToDate(StringMinimum);

Dann vergleiche ich die Werte folgendermaßen:

CompareDate(Minimum, Suche)=-1
CompareDate(Maximum, Suche)=1

Wie gesagt, da es auf manchen System funktioniert, auf anderen nicht weiß ich nicht wo ich anfangen soll mit suchen. Als Anhaltspunkt hab ich lediglich, die oben genannte Fehlermeldung, welche mich darauf schließen lässt, dass StrToDate nicht richtig arbeitet oder mit dem DD/MM/YYYY Format nicht zurecht kommt.

gruß
jacer

Critter - Mo 19.10.09 14:49

---

Hi,

ich würde mal drauf Tippen, dass die PCs auf denen es nicht läuft andere Ländereinstellungen besitzen, als die, auf denen es Klappt. Dadurch wird wahrscheinlich das Datum in einem anderen Format erwartet.

Das einfachste wird wahrscheinlich sein, eine Variable vom Typ TFormatSettings mit den für dich nützlichen Werten zu füllen und diese dann als zweiten Parameter an StrToDate zu übergeben, so kannst du die Art des Datumsformates vorschreiben. Schicker ist es aber wahrscheinlich, wenn du einen tDateTimePicker zur Eingabe des Datums verwendest und es direkt als tDate dort ausliest.

critter