如何通过星期和周期得到对应的日期(或者能否做周期的加减)

Question

如题,
例如
Dim A as string
A="07387" 表示07年38周星期六,如何得到它对应的日期B或者例如
A="0653",如何得到它的下一周是"0701" 还是"0654"
反之,知道某一周期,如何计算它的上一周期.谢谢

Answer 1

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")