ASP以周一为每周第一天，指定日期计算是当年第几周

1. Function GetNthWeek(sDate)
   
2.     Dim dt, daysElapsed, wd, n
   
3.     dt = CDate(sDate)
   
4.     daysElapsed = DateDiff("d", Year(dt) & "-1-1", dt)
   
5.     wd = Weekday(CDate(Year(dt) & "-1-1"), 2)
   
6.     If wd = 1 Then
   
7.         n = daysElapsed \ 7
   
8.         If (daysElapsed Mod 7) <> 0 Then n = n + 1
   
9.     Else
   
10.         If daysElapsed < (7 - wd + 1) Then
    
11.             n = 1
    
12.         Else
    
13.             daysElapsed = daysElapsed - (7 - wd + 1) + 1
    
14.             n = (daysElapsed \ 7) + 1
    
15.             If (daysElapsed Mod 7) <> 0 Then n = n + 1
    
16.         End If
    
17.     End If
    
18.     GetNthWeek = n ‘返回函数值，重要
    
19. End Function

复制代码

虽然asp有DatePart函数可以解决，但有时不方便哈。