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;

推荐分享