| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дни между датами ... [D6, Win95/98, WinXP]
korvin © (2004-12-21 10:53:00)Видел на разных форумах вопросы о том, как определить день недели из даты, а вот как определить количество рабочих дней (условно исключая субботы и воскресения) между двумя датами ... или хотя бы в формате integer просто получить количество дней между двумя датами?
Fay (2004-12-21 11:25:00) [1]2 Александр Иванов © (21.12.04 11:11) [2]
Какой страшный код
Александр Иванов (2004-12-21 11:11:00) [2]Result:=DaysBetween(Date1,Date2)-2*(DateBetween(Date1,Date2) div 7);
Date3:=Date2;
if (DaysBetween(Date1,Date2) mod 7) > 0 then
for i:=0 to (DaysBetween(Date1,Date2) mod 7) do
begin
if DayOfWeek(Date3) in [6,7] then Result:=Result - 1;
Date3:=Date3-i;
end;
Семен Сорокин (2004-12-21 11:04:00) [3]DaysBetween, DayOfTheWeek, DayOfWeek, for ...
F1
| |
