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 取得当前运行窗口的标题

Delphi汉字的拼音简码

Delphi中accesss实现树形结构查询系统

Delphi中获取memo鼠标所在位置的行和列

Delphi memo 过滤重复字符 indexof

Delphi压缩图片代码

Delphi tfontdialog

Delphi根据窗口句柄获取所在程序路径

Delphi xe tbitmap支持gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

Delphi 防止程序重复执行(多种方法)

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

转载请注明出处：木庄网络博客 » Delphi 解决StrToDateTime（）不是有效日期类型的问题