unit DateUtils; interface uses SysUtils, Math, Types; // 把完整时间分解成日期和时间两部分 function DateOf(const AValue: TDateTime): TDateTime; function TimeOf(const AValue: TDateTime...