Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.415 Beiträge
 
Delphi 7 Professional
 
#5

AW: StrToTime parst in falsches Datum

  Alt 20. Jun 2019, 15:40
StrToDateDef(dt, 0, fs); liefert im Fehlerfalle das Datum 0 und das ist als Zeichenfolge der 30.12.1899. Das ist also absolut korrekt so.

Eventuell solltest Du erstmal nur StrToDate(dt) nehmen, Dir die daraus resultierende Fehlermeldung anschauen, den Eingabewert oder die Konfiguration von fs anpassen und erst dann, wenn kein Fehler mehr auftritt, StrToDateDef verwenden, was ja in Deiner Routine im Fehlerfalle explizit den 30.12.1899 als Rückgabewert liefern soll.
  Mit Zitat antworten Zitat