StringToDateTime macht murx

[Sergej_Molotov]

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?