даты, разница между двумя датами Опции

[compiler]

Существуют две даты. Необходимо учитывая высокосные года найти разницу (в днях).
Идей нет. В ЧаВо ничего не нашел.

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

[volvo]

Идей совсем нет? Ну, тогда попробуй найти номер дня в текущем году для каждой даты (это было в FAQ-е), и количество високосных лет между заданными годами. Дальше догадаешься?

[compiler]

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

В Фаранове написано так

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

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

[Malice]

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

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

[compiler]

Malice

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

ты имееш ввиду эту функцию

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;

А не могла бы ты ее обьяснить...

volvo

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

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

Сообщение отредактировано: compiler - 20.02.2007 21:38

[volvo]

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

А чего рассказывать?

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

Изобретаем велосипед дальше?