Dim dte As Date    dte = DateAdd("ww", lngWeek, dteA)    WeekFistDateInYear = DateAdd("d", 7 - Weekday(dte, bteFirstDay), dte)End FunctionFunction test()    Dim dte1 As Date    Dim dte2 As Date    dte1 = #1/1/2006#    Debug.Print WeekFistDateInYear(40, dte1, vbMonday)    dte2 = WeekFistDateInYear(40, dte1, vbMonday)    Debug.Print Weekday(dte2)    '以下用 DatePart 函数验证该日期是否正确    Debug.Print DatePart("ww", dte2, vbMonday, vbFirstFullWeek)End Function