那些函数能返回当前的时，分，秒 ？

Question

好像没有
不过TDateTime(now)可以返回当前时间

Answer 1

不好意思
刚刚太武断了
现在找到方法了
用DecodeDate  DecodeTime  
procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;begin
   Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Answer 2

DecodeTime(now, Hour, Min, Sec, MSec);

Answer 3

formatdatetime( 'yyyy"年"mm"月"dd"日"', 日历控件.datetime)函数可以取得你要的格式时间，具体格式可以看帮助。

Answer 4

var
    a:tdatetime;
    b,c,d,e:word;//时，分，秒，毫秒
begin
     a:=now;
     decodetime(a,b,c,d,e);//