Is not a valid date and time 不是有效的日期格式

最新推荐文章于 2023-06-15 15:16:44 发布

chelen_jak

最新推荐文章于 2023-06-15 15:16:44 发布

阅读量2.6w

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： date string

本文链接：https://blog.youkuaiyun.com/chelen_jak/article/details/7374645

Delphi 专栏收录该内容

59 篇文章

订阅专栏

本文详细介绍了两种日期转换方法，包括直接使用StrToDateTime函数和通过设置日期格式转换方式实现复杂日期格式之间的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法一:

var
sTime: TDateTime;
s1: String;
begin
//没有下面两行时转换会出错
ShortDateFormat := 'yyyy-MM-dd';
DateSeparator := '-';
//
s1 := '2012-03-20 12:30:40';
sTime := StrToDateTime(s1) + 1;
ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',sTime));
end;

方法二：

uses
SysUtils

var
sTime: TDateTime;
s1: String;
aDateTimeFormat: TFormatSettings;
begin
//设定转换格式
aDateTimeFormat.DateSeparator := '-';
aDateTimeFormat.ShortDateFormat := 'yyyy-mm-dd';
aDateTimeFormat.TimeSeparator := ':';
aDateTimeFormat.ShortTimeFormat := 'hh:mm:ss';

s1 := '2012-03-20 12:30:40';
sTime := StrToDateTime(s1, aDateTimeFormat) + 1;
ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',sTime));
end;