主题：根据日期计算第几周

 

 

 

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