日期时间分离出日期

Question

怎么样解决这个问题

Answer 1

t: TDateTime
date: TDateTime
date := Int(t)

Answer 2

接楼上的
t: TDateTime;
dateof(t);//日期
timeof(t);//时间

Answer 3

接楼上的
t: TDateTime;
TDateTime(Trunc(t));//日期
TDateTime(Frac(t));//时间

Answer 4

DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
可以将日期（或时间）拆分成年，月，日（或者时，分，秒）

Answer 5

decodedate 函数 将日期格式分解为年月日 
decodetime 函数 将时间格式分解为时、分、秒、毫秒 encodedate 函数 将年月日合成为日期格式 
encodetime 函数 将时、分、秒、毫秒合成为时间格式 其它的自己查help喽