正确格式化日期、时间

 用VCL内置的ShortDateFormat和ShortTimeFormat:

procedure TForm1.Button1Click(Sender: TObject); var dt: TDateTime; begin dt := StrToDateTime(FormatDateTime( ShortDateFormat + ' ' + ShortTimeFormat, Now)); Memo1.Lines.Add(DateTimeToStr(dt)); end;

你可能感兴趣的:(正确格式化日期、时间)