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

上一个：asp实现过滤关键字的函数
下一个：asp 取得中文句子头一个字的大写拼音字母的函数