Delphi 解决StrToDateTime（）不是有效日期类型的问题

秦人再现 · 发表于 2020-3-7 14:52:00

相关资料：

http://www.delphitop.com/html/shijian/4924.html

方法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 IDE 下按下 CTRL+SHIFT+F 。搜索 Application.Initialize; 就能找到代码的修改位置。
另外也可以不要 Application.Initialize; ，然后代码放到其他位置。
特别是你第一个建立的对象的位置。
例如 DataMoudle 或者主界面，或者登录界面。
在他们的 OnCreate 里写就行了。
with FormatSettings do
  begin
    ShortDateFormat := 'yyyy-mm-dd';
    LongDateFormat :=  'yyyy-mm-dd';
    ShortTimeFormat := 'hh:nn:ss';
    LongTimeFormat := 'hh:nn:ss';
    DateSeparator := '-';
    TimeSeparator := ':';
  end;

Delphi 解决StrToDateTime（）不是有效日期类型的问题

浏览过的版块