5,379
社区成员
发帖
与我相关
我的任务
分享
function DataTimeCompare(D1,D2:TDateTime):integer; // 0等于 1大于 -1小于
var k:Double;
begin
Result:=0;
K:=abs(D1-D2);
if (K>=0) and (K<0.0000000099999999) then Result:=0
else begin
if (D1-D2)>=0 then Result:=1
else Result:=-1;
end;
end;