Konvertering af en given dato til et uge nr.

Hej . Kan det her hjælpe dig  =uge.nr(a1;2)

Mvh Ulykken-smed

Denne formel giver et mere korrekt resultat:
=INT((A1-(DATE(YEAR(A1+(MOD(8-WEEKDAY(A1);7)-3));1;1))-3+MOD(WEEKDAY(DATE(YEAR(A1+(MOD(8-WEEKDAY(A1);7)-3));1;1))+1;7))/7)+1

Jeg holder på denne til andet er bevist, leveret af bak i andet spørgsmål

=AFKORT((A1-DATO(ÅR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7)

eller som vba-function

Function UgeNr(MyDate)
Dim Resten As Single
Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)
End Function

Også en af bak´s

Blot en lille bemærkning til min lidt lange formel: Den er lavet efter standarden ISO8601, der definerer at ugen begynder med mandag og uge 1 er den første uge med mindst 4 dage. Eller med andre ord: 4. januar er altid i uge 1.

Hey

Det er sgu i orden! Det er jens48's formel jeg fik til at virke først, så det må være ham der får de 60 point.

Dog vil jeg sige at VBA funktionen også virker godt! Et spørgsmål i den forbindelse er, at når jeg vil køre den i "Immediate" vinduet giver den mig en fejl.

Private Sub UgeNrTest()
Debug.Print "Test 1: " & UgeNr("24-08-2007")
End Sub

Function UgeNr(MyDate)
Dim Resten As Single
Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)
End Function

"Run time Error 13"
Type Mismatch i linjen: Resten = (MyDate - 2) Mod 7

Rosco: kan du hjælpe?

P.S. Hvordan giver jeg point?

Et svar. I øvrigt synes jeg at Baks/Exelents formel ser mere elegant ud end min

Ok. Det kommer her!

Jeg kan ikke få Baks formel til at fungere?

Men jeg takker for hjælpen fra alle!

Mvh
Mikael