разница дат(в днях)

[compiler]

а как найти разницу между переменной датой и сегоднейшй?
мой текст

Код: Выделить всё

Uses dateutils;
begin
writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate(DateOf(Today))));   
end.

заранее благодарен.

[Serge30]

Код: Выделить всё

DayDiff := Trunc(DateVar - Now);

Тип TDateTime это Double, целая часть которого означает количество дней от опрределенной даты (вроде 30.12.1899) , а дробная представляет часть суток, которые прошли с полуночи.

З.Ы. По крайней мере так в Delphi, думаю и в FPC так должно быть

[compiler]

благодарю
но я нашел вот такой код

Код: Выделить всё

d_date:=DaysBetween(strtodate(s_date),DateOf(Now()));

где s_date - строка