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实现身份证号码15到18位升位算法

Delphi中url的编码与解码，即urlencode的使用

Delphi版的base64转换函数（修改版）

Delphi得到字符串中第一个汉字的位置

Delphi xe8 用httpclient下载文件

Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除

Delphi xe取得硬盘序列号代码 复制代码

Delphi 根据窗口类判断程序是否运行

Delphi 7中ado控件打开access数据库文件

Delphi复制粘贴操作

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

转载请注明出处：木庄网络博客 » Delphi2007在win7系统下的日期问题