欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-05-18 11:36:57
<% '****************************** '函数:workdays(date_begin , date_end) '参...
<%
'******************************
'函数: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
%>