求一函數

Question

已知第几周及周几,怎么知道這天的日期:
比如第44周周三,那么這天的日期是什么??
高手救救我!

Answer 1

试试这个函数行吗？？
Private Function GetDate(ByVal intWeekIndex As Long, ByVal intWeek As Long) As String
    GetDate = DateAdd("d", (intWeekIndex - 1) * 7 + intWeek, DateSerial(Year(Now), 1, 0))
End Function

Answer 2

那这样行吗？？
Private Function GetDate(ByVal intWeekIndex As Long, ByVal intWeek As Long) As String
    Dim strDateFirst As String
    strDateFirst = DateSerial(Year(Now), 1, 1)
    GetDate = DateAdd("d", (intWeekIndex - 1) * 7 + intWeek - Weekday(strDateFirst, vbMonday) + 1, DateSerial(Year(Now), 1, 0))
End Function