| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подсчитать количество дней от между двумя датами [D6]
Крутыш © (2004-03-19 20:54:00)Помогите как???
Алхимик (2004-03-19 21:16:00) [1]
> [2] Goida © (19.03.04 21:11)
> function CountDays(Days: TDateTime): integer;
> begin
> { Написанная тобой процедура подсчета дней.
> Главное помнить: есть месяцы с 28,29,30 и 31 днями.
> }
> end;
Орешник.
Goida (2004-03-19 21:11:00) [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:07:00) [3]trunc(Date2 - Date1)
trunc,TDateTime + F1
| |
