Дни между датами ...

← →
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;

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