<%

'******************************

'函数：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

%>