Преобразование с StrToDateTime и TFormatSettings не работает

Этот код должен работать в Delphi XE2, но он дает ошибку "недействительной даты и времени" в преобразовании StrtoDateTime:

procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
  d: TDateTime;
  FmtStngs: TFormatSettings;
begin
    GetLocaleFormatSettings(GetThreadLocale, FmtStngs);
    FmtStngs.DateSeparator := #32;
    FmtStngs.ShortDateFormat := 'dd mmm yyyy';
    FmtStngs.TimeSeparator := ':';
    FmtStngs.LongTimeFormat := 'hh:nn';

    s := FormatDateTime('', Now, FmtStngs);
    d := StrToDateTime(s, FmtStngs);
end;

Любые подсказки?

Ответы

Ответ 1

Если вы хотите конвертировать некоторые специальные форматы DateTime, лучше использовать VarToDateTime вместо StrToDateTime. Просто взгляните на реализацию обоих, и вы узнаете, что StrToDateTime как-то... и VarToDateTime спросит ОС, не может ли она сама определить.

Это работает с Delphi XE3 (но также должно работать с более ранними версиями):

procedure TForm2.Button1Click( Sender: TObject );
var
  s: string;
  d: TDateTime;
  FmtStngs: TFormatSettings;
begin
    GetLocaleFormatSettings( GetThreadLocale, FmtStngs );
    FmtStngs.DateSeparator := #32;
    FmtStngs.ShortDateFormat := 'dd mmm yyyy';
    FmtStngs.TimeSeparator := ':';
    FmtStngs.LongTimeFormat := 'hh:nn';

    s := FormatDateTime( '', Now, FmtStngs );
    d := VarToDateTime( s );
end;

Ответ 2

У вас есть две проблемы.

  • Вы не можете использовать WhiteSpace в качестве DateSeparator, потому что внутренние процедуры для синтаксического анализа строки используют этот символ для определения даты и времени в строках.

  • Функция StrToDateTime не работает, когда часть месяцев использует строку mmm, это сообщается в этом QC 23301