<%
'******************************
'函數：workdays(date_begin,date_end)
'參數：date_begin,開始日期；date_end,結束日期
'作者：阿里西西
'日期：2007/7/15
'描述：計算兩個時間內的工作日
'示例：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="未知"
endif
endfunction
%>