Delphi 获取系统时间分隔符

这段代码本身是没有问题的，但是发现如果更改了系统日期分隔符(例如将系统日期分隔符更改为2016/4/11，“-”变为"/")，StrToDate就会报错，提示：'2016-4-11'不是有效日期类型，通过这个可以说明StrToDate函数是转换的依据就是系统当前日期分隔符，所以我们要像上面代码将字符串转换为日期类型，必须先同步当前系统日期分隔符，以让程序适应系统。

//声明一个返回当前日期分隔符的函数

[delphi] view plain copy

function GetDateFormat():string;
var
SysFrset: TFormatSettings;
begin
Result:='';
GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);
Result:=SysFrset.DateSeparator; //DateSeparator当前系统日期分隔符
end;

以下为正确的字符串转日期的方法适用XP win7

[delphi] view plain copy

var
Dat:Tdate;
Fr:string;//保存日期格式的字符串变量
begin
Fr:=GetDateFormat;//获取当前系统日期分隔符
Dat:=StrToDate(Format('2016%s4%s11',[Fr,Fr])); //这样始终都会跟当前系统日期分隔符同步，这样不管你把当前系统日期分隔符设置为什么样都不会报错
end;

Delphi 获取系统时间分隔符相关推荐

VC获取系统时间、程序运行时间
1.使用CTime类 CString str; //获取系统时间 CTime tm; tm=CTime::GetCurrentTime(); str=tm.Format("现在时间是 ...
c 获取当前时间插入oracle数据库,Oracle如何获取系统当前时间等操作实例，c++获取系统时间...
Oracle如何获取系统当前时间等操作实例,c++获取系统时间获取系统当前时间 date类型的 select sysdate from dual; char类型的 select to_char(sy ...
VC++ 获取系统时间的方法汇总
1.使用CTime类(获取系统当前时间,精确到秒) ? 1 2 3 4 5 6 CString str; //获取系统时间 CTime tm; tm=CTime::GetCurrentTime();/ ...
Linux驱动中获取系统时间
最近在做VoIP方面的驱动,总共有16个FXS口和FXO口依次初始化,耗用的时间较多.准备将其改为多线程,首先需要确定哪个环节消耗的时间多,这就需要获取系统时间. #include <linux ...
C++11新特性，利用std::chrono精简传统获取系统时间的方法
一.传统的获取系统时间的方法传统的C++获取时间的方法须要分平台来定义. 相信百度代码也不少. 我自己写了下,例如以下. const std::string getCurrentSystemTime ...
java自动获取时间月代码_【java代码获取系统时间和执行定时任务】
获取系统时间主要类简介 SimpleDateFormat 是一个以与语言环境有关的方式来格式化和解析日期的具体类.它允许进行格式化(日期 -> 文本).解析(文本 -> 日期)和规范化. ...
c++ 如何获取系统时间
DoubleSnake 转载http://blog.csdn.net/zjnig711/article/details/2419081 c++ 如何获取系统时间 2008-04-28 15:34 ...
获取系统时间出错oracle-,oracle 获取系统时间（转）
Oracle中如何获取系统当前时间 select to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') from dual; ORACLE里获取一个时间的年.季.月.周.日 ...
android 获取系统时间的时间戳，时间戳日期互转，计算日期时间差，获取明天日期，比较时间大小
long creatTime=mBindCheck.remainPaymentTime; int shi = (int)mBindCheck.remainPaymentTime/(3600*1000) ...

Delphi 获取系统时间分隔符

Delphi 获取系统时间分隔符相关推荐

最新文章

热门文章