VBA从一年的第几周开始获取开始日期

Function GetStartDateOfWeek(Year As Integer, Week As Integer) As Date
    Dim startDate As Date
    startDate = DateSerial(Year, 1, 1) ' 获取指定年份的第一天日期
    
    ' 找到包含指定周的第一个星期四
    While Weekday(startDate, vbMonday) <> 4
        startDate = startDate + 1
    Wend
    
    ' 找到指定周的开始日期
    startDate = startDate + (Week - 1) * 7
    
    GetStartDateOfWeek = startDate
End Function

Dim startDate As Date
startDate = GetStartDateOfWeek(2022, 10)
MsgBox "2022年第10周的开始日期是：" & startDate