uge nr til dato

hvor har du årstal?

uge nr. i felt a3 og årstal i felt a2

Prøv denne: =DATO(2011;1;7*C1-3-UGEDAG(DATO(2011;;);3))

Tjek selv, om den passer med alle år, jeg mener der lidt knas med uge nr i dansk Excel.....

Hei

Jeg kan ikke hjelpe med en formel.
Det finnes en innebygd formel i Excel, men den er ikke alltid riktig.

Men jeg har lavet en kalender i excel uten formel

Jeg har en rekke per dag nedover.

I kolonne A har jeg ukenummer.

Setter første ukenummer manuelt i Celle A1

Fomelen i A8 = A1 + 1

denne kopierer jeg så nedover

I kolonne B har jeg dager.

Jeg setter riktig dato i celle  B1
Celle B2 = B1+1
kopier formelen helt ned.

Denne måten å gjøre det på er enkel.
Du får full kontroll
Den er lett å endre til neste år

=DATO(A2;1;7*C1-3-UGEDAG(DATO(A2;;);3))

Hmmm, det går godt.  :-)

=DATO(A2;1;7*A3-3-UGEDAG(DATO(A2;;);3))

Så skulle den være der.....

Eller:



'    Funtionen benytter ugenummerformatet: yyyyww
Function Ugenr_til_dato(ugenummeret)

    dim nWeek
    dim nYear
    Dim FirstDate
    Dim Week
    nYear = clng(ugenummeret\100)
    nWeek = clng(ugenummeret-clng(nYear*100))

' Find den første dato hvor uge nr er 1.
    FirstDate = CDate("24-12-" & clng(nYear - 1))

    Week = clng(0)
    While clng(Week) <> clng(1)
        FirstDate = FirstDate + 1
        Week = clng(DatePart("WW", CDate(FirstDate), vbMonday, vbFirstFourDays))
    Wend
    Ugenr_til_dato = CDate(FirstDate + ((nWeek - 1) * 7))

End Function

og så har jeg flg. forklaring liggende:



Hej O

Vi har haft problemet oppe og vende tidligere i gruppen.
Jeg har indsat en del af mit svar fra dengang:

....................


.............Det skyldes,at UGE.NR() altid har 1. januar placeret i uge 1.

Det er selvfølgelig et system at køre, og man kan ikke sige,
at det er forkert. Det harmonerer bare ikke med ISO /R 2015 - 1971,
Ugenummerering der siger at:

"Uge nr 1 i et år er den første uge, som indeholder mindst 4 dage af det
nye
år."

Da vi i Danmark har indrettet alle? vores kalendere efter ISO /R 2015,
betyder det,
at UGE.NR i nogle år vil vise det forkerte tal (ups!).
Det er måske forklaringen på, at Microsoft ikke har villet implementere
funktionen som standardfunktion.

............................

Jeg har lavet en lille brugerdefineret funktion, som kan bruges i stedet
for
UGE.NR
Funktionen sættes ind i et modul i hver projektmappe,
man skal bruge den i (med mindre man har en .xla, man kan gemme den i).

Function ugenr(Dato)
    ugenr = DatePart("ww", Dato, 2, 2)
End Function

DatePart-funktionen er ikke en decideret VBA-funktion.
Det er en VB funktion og kan som sådan bruges af VBA.

DatePart kan tage hensyn til forskellige standarder, så det
er uforståeligt, at Microsoft ikke har implementeret denne som
regnearksfunktion

Når den skal bruges fra regnearket gøres det således:

=ugenr("1-1-99")

dette vil give det korrekte resultat 53, mens UGE.NR vil give 1

Med venlig hilsen

LH



ODJ skrev i meddelelsen <>...
>Med tilføjelsesprogrammet Analysis ToolPak, som findes under Funktioner,
>Tilføjelsesprogrammer,
>er det muligt at beregne uge-nummer for en dato således:
>A1: =UGE.NR(C1) eller =UGE.NR(C;1), hvis 1. ugedag = søndag
>B1: =UGE.NR(C1;2), hvis 1. ugedag = mandag.
>C1: dato
>Ved overgangen mellem 1998 - 1999 giver Excel 97 dette resultat:
>A    B    C
>52  52  lø-26-dec-98
>53  52  sø-27-dec-98
>53  53  ma-28-dec-98
>53  53  ti-29-dec-98
>53  53  on-30-dec-98
>53  53  to-31-dec-98
>1    1    fr-01-jan-99
>1    1    lø-02-jan-99
>2    1    sø-03-jan-99
>2    2    ma-04-jan-99
>3    2    sø-10-jan-99
>3    3    ma-11-jan-99
>osv.
>Ifølge Excel 97 varer uge 53 4-5 dage, uge 1 2-3 dage og uge 2 starter
>søndag d. 3.1.99 eller mandag d. 4.1
>Samme fejl gør sig iøvrigt gældende ved årsskiftet 1999-2000.
>
>Ifølge danske kalendere, starter uge 1 i 1999 mandag d. 4. januar.
>(Med lidt god vilje evt. søndag d. 3. januar)
>
>Er der tale om en regulær fejl fra Microsoft?
>Skyldes det, at man i USA altid slutter uge 53 d. 31.12 og starter uge 1 d.
>1. januar?
>Kan man et eller andet sted fortælle Excel 97, hvorledes man ønsker denne
>funktions indstillinger?
>Kan man evt. få fat i en rettelse, der har løst dette problem?
>
>Microsoft Outlook 97' danske udgave kan godt håndtere problemet, idet man
>under Funktioner, Indstillinger, Kalender kan vælge:
>Første ugedag: Alle 7 dage kan vælges
>Første uge i året: Første firedagsuge
>                  eller: Starter den 1. januar
>                  eller: Første hele uge
>
>--
>
>

Pindehuggeri måske men (blandt andet):

Function ugenr(Dato)
    ugenr = DatePart("ww", Dato, 2, 2)
End Function

er heller ikke skudsikker. Prøv med den 31-12-2007.

Hej Vejmand

smid lige et svar, så jeg kan godkende.....har brugt dit forslag

Oki, kommer her.....