关于Delphi7中日期函数StrtoDate的正确用法 win7报错

转载请注明出处：http://blog.csdn.net/dydn120w/article/details/51118610 作者：dydn120w

1.StrToDate为delphi7中字符串转换为日期的函数
例如:

var Dat:Tdate;
beginDat:=StrToDate('2016-4-11');  //这里会将'2016-4-11'转换为Tdate类型，就是日期类型
end;

【在网上查询的资料不够完美，做法基本是让系统适用程序】

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

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

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

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

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

关于Delphi7中日期函数StrtoDate的正确用法 win7报错相关推荐

sql中日期函数的用法
sql中日期函数的用法 <script src="http://blog.csdn.net/count.aspx?ID=1920773&Type=Rank" ty ...
mysql中日期函数_mysql中日期函数ADDDATE()函数用法大全
摘要: 下文讲述mysql数据库中日期函数ADDDATE方法简介说明,如下所示: ADDDATE函数简介说明 ADDDATE函数是DATE_ADD函数的同义词,具有同样的功能, 其作用为:为指定的日期 ...
pythonlower函数_python中lower函数实现方法及用法讲解
之前小编介绍过python中将字符串小写字符转为大写的upper函数的使用方法(upper函数).有将小写转为大写的需要,那也有将大写转为小写的情况.本文主要介绍在python中可以将字符串大写自摸转 ...
Python pandas 中loc函数的意思及用法，及跟iloc的区别
Python pandas 中loc函数的意思及用法,及跟iloc的区别 loc和iloc的意思 loc和iloc的区别及用法展示参考文献 loc和iloc的意思首先,loc是location的意 ...
mfc socket onreceive函数不被调用_不报错地调用空指针类的成员函数
猜猜下列例子运行会有什么结果? class A {public:static void print(){printf(">>>>>n");}void ...
simulink中mux和function关联时信号维度报错（xxx does not fully set the dimensions of output xxx）
错误如图我的simulink图,其中可以看到,v6处的mux输出的维度是2,但是传输到v6的时候维度就未知了,而且传回到follower6,维度还变成1了,导致无法仿真. 看了看CSDN上大家的解决 ...
Python中删除set中指定元素元素不存在时不报错：s.discard()元素不存在时报错：s.remove()
[小白从小学Python.C.Java] [Python-计算机等级考试二级] [Python-数据分析] Python中删除set中指定元素元素不存在时不报错:s.discard() 元素不存在时 ...
react 中使用import()实现按需加载报错解决方法 --‘import’ and ‘export’ may only appear at the top level
react 中使用import()实现按需加载报错解决方法 --'import' and 'export' may only appear at the top level 参考文章: (1)rea ...
IDEA中写代码间距变大报红，报错Cannot resolve symbol
问题: IDEA中写代码间距变大报红,报错Cannot resolve symbol 原因: 出现这个情况是因为输入法中英文设置成了全角解决: 将输入法设置成半角即可 1.切换到中文状态 2.shi ...
phpstudy访问不了php_初接触php，使用phpstudy运行php文件，访问路径中不能携带.php尾缀，否则报错...
使用phpstudy运行php文件,路径中不能携带.php尾缀,否则报错直接使用one可以访问,这个是控制层出问题吗这个是控制层代码 class one extends General_contr ...

关于Delphi7中日期函数StrtoDate的正确用法 win7报错

关于Delphi7中日期函数StrtoDate的正确用法 win7报错相关推荐

最新文章

热门文章