delphi – FormatDateTime的反函数

发布时间：2020-12-15 06:10:18 所属栏目：大数据来源：网络整理

导读：我正在寻找一个函数来将由函数 FormatDateTime创建的任何字符串(YYYYMDD,YY / MM / DD,YYMMDD,…)转换为datetime. 例我有一个字符串日期格式为YYYYMMDD被格式化的时间 mydatestr:=FormatDateTime('YYYYMMDD',Mydate); 现在我怎么可以再次将mydatestr转换为D

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

例

我有一个字符串日期格式为YYYYMMDD被格式化的时间

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

现在我怎么可以再次将mydatestr转换为DateTime？

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

解决方法

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

编辑：

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

使用示例：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!