如何在规定的时间内计算下一周的当前日期

函数的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
结束函数{ 1 }