var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;
var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;