Funktion der kan udregne antal uger i et år

Hejsa

Jeg har prøvet at lave en funktion til udregning af antal uger i et givet år, men det går ikke helt efter planen. Her er hvad jeg har indtil videre:

Function getWeekNumber(str_year)
getWeekNumber = DatePart("ww","31-12-"&str_year,vbMonday, vbFirstFourDays)
If getWeekNumber = 1 Then
  getWeekNumber = 52
End If
End Function

Hvis jeg kalder funktionen med 2007 giver den mig resultatet 53, hvilket ikke stemmer overens med min outlook kalender, der siger at der er 52 uger i 2007 :)

/Nightowl