使用strtodateTime和tformatSettings转换不起作用

Question

此代码应在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;

有任何提示？

Answer 1

如果要转换一些特殊的DateTime-Formats，则应更好地使用VartodateTime而不是StrtodateTime。只要看看两者的实现，您就会认识到，strtodateTime是某种程度上... vartodateTime会询问OS是否自己无法确定。

这与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;

Answer 2

您有两个问题

1. 您不能将witesepace用作日期驱动器，因为解析字符串的内部例程使用此字符来确定字符串的日期和时间部分。

2. 当月份使用mmm字符串时，StrToDateTime函数不起作用，这在此QC 23301

中报告