当前日期的计算是未来几周在任何时间内的函数。

我前几天问，这是今天写的！
函数的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
端功能