Идей совсем нет?

Предлагаемый алгоритм подсчета количества дней заключается в вычислении количества дней от даты рождения до конца месяца, а затем и года рождения, количества дней, от начала текущего года до текущего месяца и текущей даты, а также - в подсчете количества полных лет, разделяющих обе даты. Количество лет затем легко пересчитывается в количество дней с учетом длины года (365 дней для обычных и 366 дней для високосных лет). Это очень прямолинейный алгоритм, но, откровенно говоря, мне не пришло в голову ничего другого. Возможно, существует более изящный способ подсчета и Вы его знаете, тогда программная реализация будет другой.

Вот я и подумал может действительно есть более изящный способ...

может действительно есть более изящный способ

Было уже: Класс календаря.

function days (y,m,d:integer):longint;
begin
if m<3 then begin dec (y); inc (m,12); end;
days:=round(int (y*365.25)+int ((m+1)*30.601)+d-int(y/100)+int (y/400));
end;

FPC + DateUtils = более изящно... Просто в одну строку...

ты имееш ввиду эту функцию
А не могла бы ты ее обьяснить...

А чего объяснять, работает и слава богу

+int ((m+1)*30.601) - тоже что-то копится и округляется в нужный момент.- а что?

а что ?

Количество дней в месяце m вестимо..

как то не нравится мне всё это... да еще и округление...

Хотя и это работает нормально, куда уж изящнее..

а по подробней... (может ссылочка есть или так расскажеш)

uses sysutils, dateutils;
begin
  writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate('10/02/2007')));
end.