2 多个函数delphi5里没有,如MonthOf,YearOf,DayOf,我重定义里一下 unction MonthOf(D:Tdate):word; var year,day:word; begin DecodeDate(d,year,result,day); end; function YearOf(D:Tdate):word; var month,day:word; begin DecodeDate(d,result,month,day); end; function DayOf(D:Tdate):word; var year,month:word; begin DecodeDate(d,year,month,result); end;
DateOf在d5不存在 有几处用到了 DateOf(NOW), 我换成了Date (是个SysUtils单元的当前日期函数) 其它使用DateOf的地方我换成了trunc (截整函数,日期实际就是整数部分,这个函数应该是取日期变量的日期部分吧?) 还有几处用到了incday,这是不是增加天数啊?我定义为 function incday(d:Tdate;a:integer):Tdate; begin result:=d+a; end;
DaysBetween是不是表示两个日期之间的天数?我是根据函数名理解的,不知对不对,我定义为
function DaysBetween(d1,d2:Tdate):integer; begin result:=trunc(d2-d1); end;
IncMilliSecond是增加毫秒吧
function IncMilliSecond(d:Tdatetime;msec:word):Tdatetime; begin result:=d+msec/(24*60*60*1000); end;