FormatDateTime的反函数

Question

我要寻找一个函数来扭转任何字符串(YYYYMDD,YY/MM/DD,YYMMDD由函数创建,...)的FormatDateTime为datetime.

例

我有一个由字符串日期格式YYYYMMDD创建FormatDateTime

mydatestr:=FormatDateTime('YYYYMMDD',Mydate); 

现在我怎么能DateTime再次将mydatestr转换成？

UPDATE

这些功能

function StrToDate(const S: string): TDateTime; overload;
function StrToDate(const S: string;
  const FormatSettings: TFormatSettings): TDateTime; overload;

function StrToDateTime(const S: string): TDateTime; overload;
function StrToDateTime(const S: string;
  const FormatSettings: TFormatSettings): TDateTime; overload;

不支持传递具有要转换格式的字符串.

我看起来像这样

Mydatetime:=InvFormatDatetime('20091225','yyyymmdd');

要么

Mydatetime:=InvFormatDatetime('20090108','yyyyddmm');

Answer 1

现有的解决方案,RX包中的rxDateutil.pas单元中的StrToDateFmt函数非常简单,可以在这里下载:http://sourceforge.net/projects/rxlib/

编辑:

上面提到的函数和来自rxDateutil.pas的StrToDateFmt正在按照您的预期完成,使用指定的字符串掩码将字符串转换为日期时间,代码太大而无法包含,因为此单元还包含其他日期函数,其中一些需要将字符串转换为日期.

使用示例:

Result := StrToDateFmtDef('MM/DD/YYYY', '11/11/2011', Now);

Answer 2

注意：不幸的是，正如Martien在此答案的评论中指出的那样，该解决方案不适用于日期不包含日期分隔符的情况。但是，我将把答案留给任何可能觉得有用的人。

我喜欢Tuncay的回答，但是有一些问题。我本来想发表评论，但我的信誉度不足。

因此，这是Tuncay答案的更正版本（修正了“ TFormatSetting”缺少一个“ s”并指定了格式设置日期分隔符）：

function AnyStringToDate(fmt, dt: String) : TDateTime;
var
  fs : TFormatSettings;
Begin
  fs := TFormatSettings.Create;
  fs.DateSeparator := '-';
  fs.ShortDateFormat := fmt;

  result := StrToDateDef(dt, 0, fs);
End;

与Tuncay的答案相同，AnyStringToDate可以按以下方式使用：

mydate := AnyStringToDate('YYYY-MM-DD', '2015-01-20');

Answer 3

无需使用任何外部库，您可以执行以下操作：

function AnyStringToDate(fmt, dt: String) : TDateTime;
var
  fs : TFormatSettings;
Begin
  fs := TFormatSettings.Create;
  fs.ShortDateFormat := fmt;

  result := StrToDateDef(dt, 0, fs);
End;

然后像这样使用它：

  mydate := AnyStringToDate('YYYY-MM-DD', '2015-01-20');

我还没有编译，但是想法很简单。