当前日期的计算是未来几周在任何时间内的函数。
函数的CalculateWeekNo(begindate,结束日期,inputdate)
昏暗的和(500,8)
Z = 0
x = 0
弘鹤=莱恩(CStr(inputdate))- 9
inputdate = CDate(左(CStr(inputdate),弘鹤))
我= CDate(begindate)于CDate(结束日期)
如果inputdate =我
x = z
退出
最后如果
如果工作日(i)=7
z=z + 1
最后如果
下一个
calculateweekno = x
端功能