DatePart

Hej!
behöver hjälp med att ta fram aktuella veckan. Har för det denna lilla "formel" :p

X = DatePart("WW", now, vbMonday)

Som ni ser säger den att X är lika med den aktuella veckan. Problemet är att

<%=X%>

ger fel vecka. Idag ger det vecka 16 men nog f*n är det vecka 15?! Eller? :q

X = DatePart("WW", now(),vbMonday,vbFirstFourDays)

Och så lätt det kan vara att rätta till sina fel :e. Men jag hade iaf rätt i att det inte var vecka 16...än :P
Tack för hjälpen

Funktionen DatePart har dock en bugg:
http://support.microsoft.com/kb/q200299/

Du kan använda funktionen som beskrivs i artikeln för att kolla efter felet, eller du kan använda den här funktionen, som returnerar rätt vecka:

Function GetWeekOfYear(d)
	Dim y, first, start

	y = Year(d) + 1
	Do
		first = DateSerial(y, 1, 1)
		y = y - 1
		start = DateAdd("d", 3 - ((WeekDay(first) + 1) mod 7), first)
	Loop while d < start
	GetWeekOfYear = Int(DateDiff("d", start, d) / 7) + 1
End Function