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


            <% '****************************** '函数：workdays(date_begin , date_end) '参数：date_begin,开始日期；date_end,结束日期 '作者：阿里西西 '日期：2007/7/15 '描述：计算两个时间内的工作日 '示例：workdays("2007-05-18" , "2007-05-21") '****************************** function workdays(date_begin , date_end)  date_begin = CDate(date_begin)  date_end = CDate(date_end)  if IsDate(date_begin) and IsDate(date_end) then   workdays = 0   for d=0 to datediff("d" , date_begin , date_end)    if weekday(date_begin + d) <> 1 and weekday(date_begin + d) <> 7 then     workdays = workdays + 1    end if   next  else    workdays = "未知"  end if end function %>