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
%>