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

2018-09-06 11:10

阅读:542

  <%
******************************
函数:workdays(date_begin,date_end)
参数:date_begin,开始日期;date_end,结束日期
作者:阿里西西
日期:2007/7/15
描述:计算两个时间内的工作日
示例:workdays(2007-05-18,2007-05-21)
******************************
functionworkdays(date_begin,date_end)
date_begin=CDate(date_begin)
date_end=CDate(date_end)
ifIsDate(date_begin)andIsDate(date_end)then
workdays=0
ford=0todatediff(d,date_begin,date_end)
ifweekday(date_begin+d)<>1andweekday(date_begin+d)<>7then
workdays=workdays+1
endif
next
else
workdays=未知
endif
endfunction
%>


评论


亲,登录后才可以留言!