Fejl i ugenumre

I excel opstår fejlen pga. 53 uger

Du kan prøve med DatePart("ww", rstemp("dato"), vbMonday, vbFirstFourDays), men ellers kan du selv regne det ud:

Function WeekNumber(year, mon, day)
    Dim a, y, m, JD, d4, L, d1
    a = (14 - mon) \ 12
    y = year + 4800 - a
    m = mon + 12 * a - 3
    JD = day + (153 * m + 2) \ 5 + 365 * y + y \ 4 - y \ 100 + y \ 400 - 32045
    d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461
    L = d4 \ 1460
    d1 = ((d4 - L) Mod 365) + L
    WeekNumber = d1 \ 7 + 1
End Function

Prøvede med DatePart("ww", rstemp("dato"), vbMonday, vbFirstFourDays), men virker den også de næste år? Jeg kan forstå at det er lidt specielt i år med ugerne. Der er flere der har lavet fejl i det. Har lige hørt om nogle af mine venner der har trykket et helt oplag af kalendre med forkerte ugenumre på :o(

Svar et svar i dit svar... :o)

Du kan jo teste forskellige datoer for de næste 10 eller 20 år med DatePart("ww", testdato, vbMonday, vbFirstFourDays) !

Og et svar.

Takker...