怎样给TDataTime变量同时赋年月日时分秒？EncodeTime和EncodeDate只能赋一部分的值

Question

uses
  DateUtils;//..........
begin
  {.. := }EncodeDateTime(2001, 12, 6, 12, 12, 12, 12);
end;

Answer 1

var
  Present:TDateTime;
  Year, Month, Day: Word;
begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
  lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end;

Answer 2

sorry,最近睡觉少，头老发昏，爱出错。var
  Present:TDateTime;
  Year, Month, Day，Hour，Min，Sec，Msec: Word;
begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  lbDate.Caption:=IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
  lbTime.Caption:=IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end; 

Answer 3

StrToDateTime(Format('%.2d/%.2d/%.2d %.2d:%.2d:%.2d', [月, 日, 年 mod 100, 时, 分, 秒] ));如果不行, 把串的格式改一下。