XE2 日期字符串转日期的函数

最新推荐文章于 2018-03-13 17:43:15 发布

三界

最新推荐文章于 2018-03-13 17:43:15 发布

阅读量1.4k

点赞数

分类专栏： RAD Studio XE 文章标签： string

本文链接：https://blog.csdn.net/QQ56430204/article/details/7887622

版权

RAD Studio XE 专栏收录该内容

28 篇文章 1 订阅

订阅专栏

//可识别处理多种格式.

Function myStrToDateTime(sdate:String):TDateTime;

const
dSeparator = '-';
var
dtpos,tmpos:Integer;
begin
result := 0;
FormatSettings.DateSeparator := dSeparator;
FormatSettings.TimeSeparator := ':';
FormatSettings.ThousandSeparator := ',';
FormatSettings.ShortDateFormat :='yyyy-mm-dd';
FormatSettings.ShortTimeFormat :='hh:nn:ss';
FormatSettings.LongDateFormat :='yyyy-mm-dd';
FormatSettings.LongTimeFormat :='hh:nn:ss';
sdate := ReplaceStr( sdate,'.' ,dSeparator);
sdate := ReplaceStr( sdate,'/' ,dSeparator);
sdate := ReplaceStr( sdate,'\' ,dSeparator);
sdate := ReplaceStr( sdate,'年',dSeparator);
sdate := ReplaceStr( sdate,'月',dSeparator);
sdate := ReplaceStr( sdate,'日',dSeparator);
dtpos := Pos(dSeparator,sdate);
tmpos := Pos(':',sdate);
//yyyymmdd字符串格式转日期.
if (dtpos=0) and (tmpos=0) and (length(sdate)=8) then
begin
sdate := Copy(sdate,1,4)+ dSeparator + Copy(sdate,5,2)+ dSeparator + Copy(sdate,7,2);
end;
//yyyymmdd hh:nn:ss字符串格式转日期.
if (dtpos=0) and (tmpos>0) and (length(sdate)>13) then
begin
tmpos := Pos(' ',sdate);
sdate := Copy(sdate,1,4)+ dSeparator + Copy(sdate,5,2)+ dSeparator + Copy(sdate,7,2) + Copy(sdate,tmpos,8);
end;
result := StrToDateTimeDef(sdate, 0, FormatSettings);

end;