如何通过星期和周期得到对应的日期(或者能否做周期的加减)
如题,
例如
Dim A as string
A= "07387 " 表示07年38周星期六,如何得到它对应的日期B

或者例如
A= "0653 ",如何得到它的下一周是 "0701 " 还是 "0654 "
反之,知道某一周期,如何计算它的上一周期.

谢谢

[解决办法]
Dim NowDate As String
Dim N As Integer
Dim OldDate As Integer
OldDate = DatePart( "W ", "2007/01/01 ", vbSunday)
N = (39 - 1) * 7 + DatePart( "w ", Date, vbSunday) - OldDate
NowDate = DateAdd( "D ", N, "2007/01/01 ")