如何将时间如：2003-12-24 11:00:38 转化为 20031224110038 需要程序，谢谢

Question

如何将时间如：2003-12-24 11:00:38 转化为 20031224110038 需要程序，谢谢

Answer 1

showmessage(formatdatetime('yyyymmddhhmmss',now))

Answer 2

var
  d : TDateTime;
begin
  d := StrToDateTime('2003-12-24 11:00:38');
  ShowMessage(FormatDateTime('yyyymmddhhmmss'), d);
end;

Answer 3

function MyFunc(): String;
var
  ss, nn, hh, dd,mm, yy: String;
begin
  DateTimeToString(ss, 'ss', now);
  DateTimeToString(nn, 'nn', now);
  DateTimeToString(hh, 'hh', now);
  DateTimeToString(dd, 'dd', now);
  DateTimeToString(mm, 'mm', now);
  DateTimeToString(yy, 'yyyy', now);
  MyFunc:=yy+mm+dd+hh+nn+ss;
end;

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  d : TDateTime;
begin
  d := StrToDateTime('2003-12-24 11:00:38');
  ShowMessage(FormatDateTime('yyyymmddhhmmss', d));
end;

Answer 5

showmessage(formatdatetime('yyyymmddhhmmss',now))

Answer 6

FormatDateTime('yyyymmddhhttnnss',now());

Answer 7

FormatDateTime('yyyymmddhhttnnss',now());