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

网学网为广大网友收集整理了，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
%>