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