方法一:
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;
本文详细介绍了两种日期转换方法,包括直接使用StrToDateTime函数和通过设置日期格式转换方式实现复杂日期格式之间的转换。
2313

被折叠的 条评论
为什么被折叠?



