Помогите с датой.

[Dennis777]

Доброго времени суток.

Никогда ранее не работал с датой, а сейчас возникла потребность создать фичу, которая будет выдавать бонусы за ежедневный запуск программы на протяжении 5 дней.

Как можно вычесть две даты и получить результат на delphi, т.е. чтобы 1.06.2006 - 30.05.2006 = 2, а не 29.

Насколько я понимаю, функция DaysBetween указывает количество полных дней из промежутка (24 часа), мне же необходимо выполнять проверку только по числу.

То есть человек мог первый раз запустить программу 03.04 в 22:50, а второй раз - 04.04 в 12:30. В таком случае человеку будет начисляться бонус за заход в новый день.

То есть меня интересует не разница в 24 часа, а разница только в днях, учитывая тот факт, что заход в приложение будет засчитываться как в 00:00, так и в 18:40.

Спасибо за помощь.

[Streletz]

То есть человек мог первый раз запустить программу 03.04 в 22:50, а второй раз - 04.04 в 12:30. В таком случае человеку будет начисляться бонус за заход в новый день.
То есть меня интересует не разница в 24 часа, а разница только в днях, учитывая тот факт, что заход в приложение будет засчитываться как в 00:00, так и в 18:40.

Можно построить алгоритм так, чтобы он учитывал только дату.

[-=Virus=-]

ShowMessage(FormatDateTime('dd',Now))

Выводит день месяца.

[superedward]

var
 Days: extended;
 DatePast: TDateTime;//время прошлого захода в программу, хранится где-то
 DaysCount: integer;//счетчик заходов в программу подряд, хранится где-то

begin
 Days:=Now-DatePast;
 if (Days>=1)and(Days<=2) then Inc(DaysCount)
 else DaysCount:=0//счетчик скидывается

 if DaysCount=5 then //та-дам! бонус
end;

[Toxa]

var
cntDay:integer;
dayone,daytwo:tdatetime;
begin
cntDay := trunc(daytwo)-trunc(dayone);
end;