本文整理自网络,侵删。
XP和Win7的日期格式在系统默认中并不一致,比如在XP下默认是'2012-1-1',在win7下却变成了'2012/1/1'。
办法1---替换法:
strSetTime :='2013/1/1' ;
if pos('/', strSetTime) > 0 then
strSetTime := StringReplace(strSetTime, '/', '-', [rfReplaceAll]);
办法 2---TFormatSettings
使用TFormatSettings来就OK了
var
t:TDateTime;
fs:TFormatSettings;
begin
fs.ShortDateFormat:='yyyy-mm-dd';
fs.DateSeparator:='-';
t := StrToDate('2013-01-01',fs);//, fs.LongDateFormat);
ShowMessage('01/01/2075 = '+DateTimeToStr(t,fs));
相关阅读 >>
Delphi d10.x安卓app开发中简单使用原生toast
Delphi 字符串中末位是双字节字符的处理(避免最后一位为乱码)
Delphi sizetostr 文件大小转换kb mb gb tb
更多相关阅读请进入《Delphi》频道 >>