delphi - FormatDateTime 的反函数

Question

我正在寻找一个函数来反转任何字符串(YYYYMDD、YY/MM/DD、YYMMDD,...) 由函数 FormatDateTime 创建到日期时间。

示例

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

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

现在如何再次将 mydatestr 转换为 DateTime？

更新

这些功能

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);