<%
'**********************************
'Función: Workdays (date_begin, date_end)
'Argumentos: date_begin, fecha de inicio; date_end, fecha de finalización
'Autor: Alixi
'Fecha: 2007/7/15
'Descripción: Calcule los días hábiles en dos veces
'Ejemplo: Workdays ("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) entonces
Días de trabajo = 0
Ford = 0todatediff ("D", date_begin, date_end)
ifweekday (date_begin+d) <> 1andweekday (date_begin+d) <> 7Then
Días de trabajo = Días de trabajo+1
endif
próximo
demás
Workdays = "Desconocido"
endif
Función final
%>