Dim rq As Date = Args(0) '类别
Dim ia As Integer
Dim ib As Integer
Dim ic As Integer
Dim iy As Integer
Dim ix As Integer
Dim rq1 As Date
rq1= "#1/1/" & rq.Year & "#"
ia = rq.DayOfYear
ib= rq1.DayOfWeek
ic=ia+ib '-2
iy = ic Mod 7
ix= ic \7
If iy<>0 Then ix=ix+1
Return ix