asp实现计算两个时间内的工作日的函数

1. <%  
2. '******************************  
3. '函数：workdays(date_begin , date_end)  
4. '参数：date_begin,开始日期；date_end,结束日期  
5. '作者：阿里西西  
6. '日期：2007/7/15  
7. '描述：计算两个时间内的工作日  
8. '示例：workdays("2007-05-18" , "2007-05-21")  
9. '******************************  
10. function workdays(date_begin , date_end)  
11.  date_begin = CDate(date_begin)  
12.  date_end = CDate(date_end)  
13.  if IsDate(date_begin) and IsDate(date_end) then  
14.   workdays = 0  
15.   for d=0 to datediff("d" , date_begin , date_end)  
16.    if weekday(date_begin + d) <> 1 and weekday(date_begin + d) <> 7 then  
17.     workdays = workdays + 1  
18.    end if  
19.   next  
20.  else   
21.   workdays = "未知"  
22.  end if  
23. end function  
24. %>