asp实现计算两个时间内的工作日的函数
2018-09-06 11:10
阅读：553
<%
******************************
函数：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
%>
评论
亲，登录后才可以留言！