关于VB编程的 日期2007年5月29日后的100天是该年的第几周啊

Private Sub Form_click()
Dim yue(1 To 12) As Integer, ts As Integer, zs As Integer
For i = 1 To 12
Select Case i
Case 1, 3, 5, 7, 8, 10, 12
yue(i) = 31
Case 4, 6, 9, 11
yue(i) = 30
Case 2
yue(i) = 28
End Select
Next
ts = 0
For i = 1 To 4
ts = yue(i) + ts
Next
ts = ts + 29 + 100
Print "2007年5月29日后100天是该年的第"; ts; "天"
If ts Mod 7 = 0 Then
zs = ts / 7
Else
zs = ts \ 7 + 1
End If
Print "这天是该年的第"; zs; "周"
End Sub

在form1上放一个text和一个button
Private Sub Command1_Click()
Text1 = DateDiff("w", "2007-1-1", DateValue("2007-5-29") + 100)
End Sub

思路就是用datediff函数计算和年初相差多少周