17

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

有什么提示吗?

4

2 回答 2

19

如果要转换一些特殊的 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;
于 2012-11-09T19:09:53.543 回答
17

你有两个问题

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

  2. 当月份部分使用字符串时,该StrToDateTime功能不起作用 mmm,这在此QC 23301中报告

于 2012-11-09T15:15:26.437 回答