Jo det är ett fel, 2003 har ingen vecka 53, däremot har 2004 det. Vecka 1 på ett år är den vecka som har minst 4 dagar med datum på det nya året. Veckan 29/12 2003 - 4/1 2004 är således vecka 1 då det är första veckan som innehåller 4 dagar av det nya året.

Felet är en känd bug i Datepart funktionen som finns omnämnd här

http://support.microsoft.com:80/support/kb/articles/q200/2/99.asp&NoWebContent=1&NoWebContent=1

En lösning som näms i BUG-rapproten är att göra en egen week-of-year funktion.

<code>
Function WOY (MyDate As Date) As Integer ' Week Of Year
WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
End If
End Function
</code>

//
Janne.

Tusen tack!!

Skönt att höra att det var en Bugg och inte jag som tänkte fel ;-) Funktionen kommer
användas flitigt...

Mvh Therese