Подсчитать количество дней от между двумя датами

← →
Крутыш © (2004-03-19 20:54) [0]

Помогите как???

← →
Алхимик © (2004-03-19 21:07) [1]

trunc(Date2 - Date1)
trunc,TDateTime + F1

← →
Goida © (2004-03-19 21:11) [2]

var D,D1,D2: TDateTime; Days: integer; ... D := D2 - D1; Days := CountDays(D); ... function CountDays(Days: TDateTime): integer; begin { Написанная тобой процедура подсчета дней. Главное помнить: есть месяцы с 28,29,30 и 31 днями. } end;

Думаю, только так.

> [2] Goida © (19.03.04 21:11)
> function CountDays(Days: TDateTime): integer;
> begin
> { Написанная тобой процедура подсчета дней.
> Главное помнить: есть месяцы с 28,29,30 и 31 днями.
> }
> end;

Орешник.

Подсчитать количество дней от между двумя датами Найти похожие ветки