function calculateweekno(begindate,enddate,inputdate)
dim wdate(500,8)
z=0
x=0
strlong=len(cstr(inputdate))-9
inputdate=cdate(left(cstr(inputdate),strlong))
for i=cdate(begindate) to cdate(enddate)
if inputdate=i then
x=z
exit for
end if
if weekday(i)=7 then
z=z+1
end if
next
calculateweekno=x
end function
[1]
如对本文有疑问, 点击进行留言回复!!
Webstorm2020最新版——git使用快速入门配套详细图解及中英文汉化对比
Docker部署Gitlab,http端口不用80的解决方法
Outlook2016暑期怎么设置自动答复? outlook自动答复设置方法
网友评论