Текущий архив: 2004.04.18;
Скачать: 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 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
