VB计算一年中某一天在这一年中是第几周

Private Sub Command1_Click()
    MsgBox "今天是" & trim(str(Year(Date))) & "年第" & trim(str(GetWeekOfYear(Date))) & "周"
End Sub

'计算一年中某一天在这一年中是第几周
Function GetWeekOfYear(myDate As Date) As Integer
    Dim result As Integer
    Dim date1 As Date
    
    date1 = Year(myDate) & "/01/01" '元旦zhi
    result = DateDiff("ww", date1, myDate) + 1
    
    GetWeekOfYear = result
    
End Function