有关函数的问题！

Question

不知上面的两个函数实现的是什么功能。year:=copy(datetimetostr(date),1,4);   //年
其余的不用说了吧。

Answer 1

在delphi中应该有专用函数吧，还要用copy？date

Answer 2

用procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Answer 3

日期用decodedate,时间用decodetime

Answer 4

有一个Incmonth函数，其他的好像没有！时间的比较有CompareFileTime，还有一个ReplaceDate函数，用于替换日期，而保留时间的。

Answer 5

日期：
riqi:Tdatetime
DecodeDate(riqi, Year, Month, Day);
时间：
DecodeTime(riqi, Hour, Min, Sec, MSec);