Текущий архив: 2005.01.09;
Скачать: CL | DM;
Вниз
Дни между датами ... Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.057 c
