Delphi 解决StrToDateTime()不是有效日期类型的问题


本文整理自网络,侵删。

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


procedure TForm1.btn1Click(Sender: TObject);
var   
  Dat:TDateTime;
  Fr, Fm:string;//保存日期格式的字符串变量
  str: string;
begin  
  Fr:=GetDateFormat;//获取当前系统日期分隔符
  Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);
  str:= FormatDateTime(Fm,Now);
  ShowMessage(str);
  Dat:=StrToDateTime(str);  //这样始终都会跟当前系统日期分隔符同步,这样不管你把当前系统日期分隔符设置为什么样都不会报错
end;

方法2:
procedure TForm1.btn2Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
//  D:=VarToDateTime('05-10-14 04:35PM');
  D:=VarToDateTime('2018-03-13 12:12:12');
  S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);
  showmessage(s);
end;

相关阅读 >>

Delphi 用dll实现插件的简单演示

Delphi fmx检测屏幕旋转

Delphi调用命令行命令并获取返回信息

Delphi tdownloadurl下载网络文件

Delphi编程之win10桌面图标设置

Delphi中case语法的使用方法

Delphi 如何屏蔽alt+f4

Delphi tdragimage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果

Delphi cardpanel1 简单的切换

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

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



打赏

取消

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

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

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

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

评论

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