Скачать: CL | DM;

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

← →
Крутыш ©   (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;

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

---

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

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


Орешник.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c