关于日期的问题

Function Adate(myyear As Long, numweek As Long) As Variant
    Dim A(1) As Date
    Dim D As Date
    D = DateSerial(myyear, 1, 1)
    A(0) = DateAdd("ww", numweek, D)
    A(0) = DateAdd("d", 1 - Weekday(A(0), vbMonday), A(0))
    A(1) = DateAdd("d", 7, A(0))
    Adate = A
End Function