procedure TForm1.Button1Click(Sender: TObject);
var
D:TDateTime;
s:string;
begin
D:=VarToDateTime(‘05-10-14 04:35PM‘);
S:=FormatDatetime(‘YYYY/MM/DD HH:MM:SS‘,D);
showmessage(s);
end;
看到有人这样用VarToDateTime、存下来、强大的日期通杀
原文：https://www.cnblogs.com/sdlz/p/10580738.html