Delphi2007在win7系统下的日期问题


本文整理自网络,侵删。

 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 如何得到 winrar 处理解压缩文件的返回值 ?

Delphi 使用钩子函数

Delphi opendialog控件用法

Delphi 10.3版本获取windows系统版本和cpu信息

Delphi 全局钩子锁定鼠标

Delphi 拷贝文件夹内所有内容

Delphi 实现显示文件目录大小

Delphi 以十六进制显示数据内容

Delphi 将word嵌入Delphi

Delphi clipboard 截图后将图片数据复制到剪贴板

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...