Beregning af ugenummer

Kan du bruge dette til noget: https://da.wikipedia.org/wiki/Uge ?

Der er forskellige metoder rundt omkring i verden.

Den vi bruger i Danmark er kort fortalt at uge 1 er den første uge i kalenderåret med en torsdag.
Det lyder lidt kryptisk/underligt, men det skyldes naturligvis at den første uge med en torsdag er den uge hvor de fleste af dagene (4 eller flere) ligger i det nye år.
Så ud fra den viden bør du kunne konstruere en formel der kan anvendes...

Jeg kender udmærket pricippet bage ugenumre, men er mere interesseret i hvordan man matematisk/logisk beregner det.

http://www.tondering.dk/claus/cal/week.php#calcweekno

Jeg plejer at bruge den her (C# version men jeg har i andre sprog):

Problemet er at jeg skal bruge EEN formel. Det er ikke et programmeringssprog - det er et XML felt, der kan indeholde en meget simpel formel. Så derfor forsøger jeg at gennemskue hvordan den formel, jeg har skrevet i starten fungerer.

I Excel vil den se sådan her ud:

=RUND.NED((A1-DATO(ÅR(A1-UGEDAG(A1-1)+4);1;3)+UGEDAG(DATO(ÅR(A1-UGEDAG(A1-1)+4);1;3))+5) /7;0)

A1 = datoen

Excels "UGEDAG" formel dækker jo over noget komplekst som næppe kan udtrykkes i (med dine egne ord) "et XML felt, der kan indeholde en meget simpel formel".

Men nu misforstod jeg dig jo også da du skrev "ikke bare en formel - men den grundlæggende beskrivelse af hvordan den beregnes", så det er muligt at din definition af "et XML felt, der kan indeholde en meget simpel formel" er anderledes end min :-).

Har du evt. mulighed for i stedet at slå værdien op i en tabel du har for-beregnet med dato, ugenr. kombination i stedet?

HEJ,

Jeg har en ganske kort rutine . men den er i Delphi (7 --> ).

Sig til hvis interesseret ...

Kristian

måske du vil kunne inspireres af denne måde at regne sig frem til det.
Metoden har jeg selv hentet her fra eksperten.dk for flere år siden, og jeg husker ikke hvem der er fadder til den.
Den fodres blot med en dato, og vil altid virke til den danske norm for ugenumre.


I excel (engelk version) hedder formlen WEEKNUM(date,[return_type])

Den skal fodres med 2 input: dato, og returntype skal altid være 21, for at få brergnet efter den norm der gælder i DK

Ha ha... Det er godt nok svært at forklare sig her....

Jeg er på jagt efter pseudo-koden til hvordan man beregner ugenummeret.

1: Tag den aktuelle dato og find mandagen (ugestart) for denne
2: Find den dato, der er begyndelsen på året
3: Finde den dato, der .....

etc....

Jeg HAR formlen. Jeg forsøger bare at finde ud af hvad den præcist gør så jeg kan "konverterer" den til en anden formel, i et system, der ikke har de samme funktioner/metoder.

Hvis du vil i gang med at analysere en formel og omskrive det til en beregningsmetode, så vil jeg anbefale at analysere den enkleste metode.
Den enkleste metode til beregningen jeg har set til dato er den jeg beskriver i #10. Den stammer også fra en ekspert her på eksperten.dk

Jeg vil helst ikke påtage mig at omskrive det til købmandsregning, da jeg nemt falder af på at jeg generelt har et dårligt overblik.

#11: Du har nu fået adskillige stumper kode der gør det, du har fået den helt enkelte forklaring på hvordan ugenummer beregnes, jeg kan ikke se hvad du mangler for at strikke noget sammen selv.

#13 Jo - jeg har fået adskillige stykker kode - og jeg havde selv i forvejen masser af kode, der kunne beregne dette, men jeg har stadig ikke fundet ud af hvordan koden reelt beregner ugen.
Det jeg manger er IKKE kode, men systemet forklaret i pseudokode - og ikke at "sådan er det bare".

F.eks. #10:

Resten = (MyDate - 2) Mod 7
UgeNr = Int((MyDate - DateSerial(Year(MyDate + 3 - Resten), 1, Resten - 9)) / 7)

Hvad er "Resten"... Hvorfor trækkes 2 fra datoen? "MOD 7" forstår jeg.
Hvorfor lægges 3 til datoen inden Resten trækkes fra? Hvorfor trækkes der 9 fra?

Eller min egen kode fra #1:

=INT(([dato] - DATE(YEAR([dato] - WEEKDAY([dato] - 1) + 4); 1; 3) + WEEKDAY(DATE(YEAR([dato] - WEEKDAY([dato] - 1) + 4); 1; 3)) + 5) / 7)

"[dato] - WEEKDAY([dato] - 1) + 4": Finder mandagen i aktuel uge
"DATE(YEAR([dato] - WEEKDAY([dato] - 1) + 4); 1; 3)":  Finder 1. marts i det aktuelle år (Hvorfor marts????)

Ja det kan være nogle komplicerede beregninger, og noget af det du ser i dine formler er beregning af divisionsrest.

Du kender formodentligt excelfunktionen MOD der beregner divisionrest.
Det kan være meget brugbart, og bruges også i linien (fra #10):

hvor der kommer forst trækkes 2 fra et datoinput hvorefter der beregnes en divisionsrest hvis tallet divideres med 7 (husk at datoen i excel også repræsenterer et tal - datoen i dag 22.aept repræsenteres af talværdien 42635)


Vedr ugenumre, så er der 2 grundregler:
Alm. år: Uge 53 indeholder altid datoen 3. januar året efter, men uge 53 eksisterer kun
hvis 27. december var en søndag.

Skudår: Uge 53 indeholder altid datoen 2. januar året efter, men uge 53 eksisterer kun hvis 26. december var en lørdag eller en søndag.

for at kunne beregne skudår så er der nogle langhårede matrik'er i spil:
eksempelvis så er der ikke bare skudår hvert 4. år.
For hvert 400'ende år så springes der et skudår over, men så vidt vides bliver det ikke aktuelt hverken i vores eller vores børns tid.

Formlen for skudår er ikke helt korrekt beskrevet: Det er skudår hvert 4. år (år deleligt med 4), med mindre årstallet OGSÅ er deleligt med 100. For så er det ikke skudår alligevel.
Dog er det så alligevel skudår selvom årstallet er deleligt med både 4 og 100, hvis det OGSÅ er deleligt med 400.
Så det er hvert 100 år der springes et skudår over, med mindre årstallet også er deleligt med 400.
Men du har ret i pointen om at næste gang det er aktuelt er i år 2100 (som jo så IKKE er skudår. I øvrigt var 400-års reglen jo i brug i år 2000 - som jo så altså VAR et skudår).

#14 Jeg er fortsat skeptisk da du ikke har delt noget som helst om hvilke regneformer du rent faktisk har adgang til. Så kunne det jo være nogen havde en formel der kun indeholdt dem.

#16 De metoder jeg har adgang til er MEGET begrænset. Det er MS InfoPath og der understøttes kun standard XML funktioner. Det er +-*/, ToDay, DateAdd, Floor (INT) og strengmanipulation (substring, left etc). Det er ULTRA begrænset og jeg tror egentlig jeg bare giver op og siger til dem, at de ikke kan få vist ugenummer på den form.

Tak for alle input!

Med de begrænsede regnefunktioner du har til rådighed, så kan det vist heller ikke lade sig gøre.
Alene det at du ikke kan beregne divisionsrest, sætter en begrænsning...
Divisionsrest indgår i alle de beregningsformer jeg har set.

Har tidligere selv brugt denne formel:

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

Hvor A1 er = dato.

Men lige opdaget denne her i Office 365
=ISOUGE.NR(A1)

Som ser ud til og virke efter hensigten :)

Man kan også bruge UGE.NR(A1;21)

@katborg

Du har helt ret i at man også kan bruge WeekNum.(det hedder den I den engelske version).
Jeg har blot valgt at bruge min brugerdefinerede funktion her, og de stammer helt tilbage fra den tid hvor WeekNum ikke kunne beregne korrekt efter danske normer. Det kan den nu når den får Optional 21 med.

Fordi jeg har men brugerdefinerede funktion stadigvæk så indgår den i mange af mine VBA-procedurer.

Og så er der også lige det at hvis jeg vil kalde en WorksheetFunction som Weeknum i min VBA-procedure, så skal jeg have noget mere med:

Så vil funktions-kaldet blive noget i stil med:

Der skelnes imellem Worksheet-Functions og VBA-functions.