方法一:
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;
方法二:
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;
转自:http://blog.csdn.net/xxkku521/article/details/25817137
http://blog.csdn.net/dydn120w/article/details/51118610