<%
'*********************************
'Function: workdays(date_begin,date_end)
'Arguments: date_begin, start date; date_end, end date
'Author: Alixi
'Date: 2007/7/15
'Description: Calculate working days within two times
'Example: 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)then
workdays=0
ford=0todatediff("d",date_begin,date_end)
ifweekday(date_begin+d)<>1andweekday(date_begin+d)<>7then
workdays=workdays+1
endif
next
else
workdays="Unknown"
endif
endfunction
%>