软件开发培训班 >> 编程开发 >> 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
%>