Calculez le nombre de semaines par date

Question

J'essaie de réparer une fonction qui retourne le nombre de semaines dans une année donnée.

Voilà comment il ressemble:

Function GetWeekNo(date) 
    weekOfYear = DatePart("ww", DateValue(date), vbMonday, vbFirstFourDays) 

    If weekOfYear > 52 Then 
     If DatePart("ww", DateValue(date) + 7, vbMonday, vbFirstFourDays) = 2 Then 
      weekOfYear = 1 
     End If 
    End If 

    GetWeekNo = weekOfYear 
End Function 

Lorsque cette fonction est donnée la date 31/12/2010, il retourne 52. Il y a 53 semaines en 2010.

Note: Je ne expérience avec ASP classique, what-so-ever.

Answer 1

On dirait que cela dépend de quelle semaine est considérée comme la «première semaine de l'année».

DatePart("ww", "12/31/2010", vbMonday) 
' returns 53 
' FirstWeekOfYear parameter defaults to vbFirstJan1 
' the week that contains January/01/2010 
' here, its the week starting on December/28/2009 

DatePart("ww", "12/31/2010", vbMonday, vbFirstFourDays) 
' returns 52 
' FirstWeekOfYear parameter set to vbFirstFourDays 
' the first week that has at least four days of the new year 
' here, its the week starting on January/04/2010 

DatePart("ww", "12/31/2010", vbMonday, vbFirstFullWeek) 
' returns 52 
' FirstWeekOfYear parameter set to vbFirstFullWeek 
' the first week that has full seven days of the new year 
' here, again, its the week starting on January/04/2010 

Décider quelle est votre définition de la première semaine de l'année, puis utilisez la fonction DatePart en conséquence.