<%
'*********************************
'Функция: рабочие дни (date_begin, date_end)
'Аргументы: date_begin, дата начала; date_end, дата окончания
Автор: Аликси
Дата: 2007/7/15
'Описание: Рассчитайте рабочие дни в течение двух раз
Пример: рабочие дни ("2007-05-18", "2007-05-21")
'*********************************
FunctionWorkDays (date_begin, date_end)
date_begin = cdate (date_begin)
date_end = cdate (date_end)
ifisdate (date_begin) andisdate (date_end) then
Рабочие дни = 0
ford = 0todatediff ("D", date_begin, date_end)
ifweekday (date_begin+d) <> 1 и неделя дня (date_begin+d) <> 7then
Рабочие дни = рабочие дни+1
эндиф
следующий
еще
Workdays = "Неизвестно"
эндиф
конечная функция
%>