Hallo Zusammen,
ich bin gerade über was gestolpert, was ich mir nicht so richtig erklären kann. Folgender Beispielcode:
Delphi-Quellcode:
procedure TDlg_Main.BtnTestClick(Sender: TObject);
var
tmp : Tdatetime;
aFormat : TFormatSettings;
begin
tmp := StrToDateTime('21.12.1993 00:09:59'); //Liefert 21.12.1993 00:09:59 und OK
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, aFormat);
aFormat.ShortDateFormat := 'yyyy-mm-dd';
aFormat.ShortTimeFormat := 'hh:nn:ss';
aFormat.DateSeparator := '-';
aFormat.TimeSeparator := ':';
tmp := StrToDateTime('1993-12-21 00:10:00', aFormat); // Liefert 21.12.1993 00:09:59 NICHT OK
tmp := VarToDateTime('1993-12-21 00:10:00')// Liefert 21.12.1993 00:09:59 NICHT OK
end;
Bediene ich die Funktion falsch oder was ist hier los?