Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

Дни между датами ...   Найти похожие ветки 

← →
korvin ©   (2004-12-21 10:53) [0]

Видел на разных форумах вопросы о том, как определить день недели из даты, а вот как определить количество рабочих дней (условно исключая субботы и воскресения) между двумя датами ... или хотя бы в формате integer просто получить количество дней между двумя датами?

---

← →
Семен Сорокин ©   (2004-12-21 11:04) [1]

DaysBetween, DayOfTheWeek, DayOfWeek, for ...
F1

---

← →
Александр Иванов ©   (2004-12-21 11:11) [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;

---

← →
Fay ©   (2004-12-21 11:25) [3]

2 Александр Иванов ©   (21.12.04 11:11) [2]
Какой страшный код

---

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

Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c