<%
'***********************************
'Função:
'Argumentos: date_begin, data de início; date_end, data de término
'Autor: Alixi
Data: 2007/7/15
'Descrição: Calcule dias úteis dentro de duas vezes
'Exemplo: dias de trabalho ("2007-05-18", "2007-05-21")
'***********************************
FunctionWorkys (date_begin, date_end)
date_begin = cdate (date_begin)
date_end = cdate (date_end)
ifiSdate (date_begin) andisdate (date_end) então
dias de trabalho = 0
ford = 0todatediff ("d", date_begin, date_end)
ifweekday (date_begin+d) <> 1 eweekday (date_begin+d) <> 7then
dias de trabalho = dias de trabalho+1
endif
próximo
outro
dias de trabalho = "desconhecido"
endif
Função final
%>