Ugenummer funktion

Denne funtion giver ugenummer jvf. ISO 8601 (1988) og EN 28601 (1992)
Hvis dato står i A1.
=AFKORT((A1-UGEDAG(A1;2)-DATO(ÅR(A1+4-UGEDAG(A1;2));1;-10))/7)

Indsæt følgende makro i et modul:

Function WeekNum(dtDate As Date) As Long
    Dim lRetVal As Long
    lRetVal = DateSerial(Year(dtDate + (8 - Weekday(dtDate)) Mod 7 - 3), 1, 1)
    WeekNum = ((dtDate - lRetVal - 3 + (Weekday(lRetVal) + 1) Mod 7)) \ 7 + 1
End Function

I regnearket skriver du f.eks. =weeknum(A1)

Eller noget lignende =DATO(2002;1;7*A1-3-UGEDAG(DATO(2002;;);3))

Hov - glem den sidste formel - den gør jo det modsatte.

MAKRO I ET MODUL:
Function ugeNr(dato As Date) As Integer
    ugeNr = CInt(Format(dato, "ww", vbMonday, vbFirstFourDays))
End Function

formel : =ugeNr(c4)

Hvis datoen står i c4

Eh - I er hurtige :)

skulle lige afprøve min kode - og så var der allerede 3 indlæg.

Jeg har gode erfaringer med denne her:

=HELTAL((A1-(DATO(ÅR(A1+(REST(8-UGEDAG(A1);7)-3));1;1))-3+REST(UGEDAG(DATO(ÅR(A1+(REST(8-UGEDAG(A1);7)-3));1;1))+1;7))/7)+1

Se endvidere http://www.eksperten.dk/spm/111522

Tak bak for den simpleste og hurtigste svar, det var lige det jeg skulle bruge. Du får dine point på trods af de andres løsning var mindst ligeså "rigtige".