极度菜的问题： Delphi 中有没取TDateTime 日期部分，或者时间部分的函数；(0分)

不要说采用跟我一样菜的方法：
------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
DateTime1 , DateTime2 : TDateTime;
DateTime3 , DateTime4: TDateTime;
DateTime5 : TDateTime;
begin
DateTime1:=Time;
DateTime2:=Date;
DateTime3 := DateTime1 + DateTime2;
DateTime4 := Trunc(DateTime3); //取得日期部分
DateTime5 := DateTime3 - DateTime4; //取得时间部分
Caption:='日期 '+DateToStr(DateTime4)+' 时间 '+TimeToStr(DateTime5);
end;

FormatDateTime('YYYY-MM-DD HH:NN:SS',TDateTime)

Now就是日期阿
time就是时间啊
新建工程，添加一个按钮，他的事件：
Caption := DateTimeToStr(now);
看看结果。

谢谢各位^V^
我的意思是：
DayOf 取TDateTime的日期部分；
TimeOf 取TDateTime的时间部分；
---------------------------------------------
看来，有时间我要多看一下Delphi Helps
象TDateTime类型， 就有很多Date/time routines不知深藏不知。

上面取日期部分写错：DateOf

Caption:='日期 '+DateToStr(now)+' 时间 '+TimeToStr(now);
或是说你想取得两个时间之差？？

FormatDateTime('YYYY-MM-DD',TDateTime)
FormatDateTime('HH:NN:SS',TDateTime)