Print side | Luk vindue

Midterste onsdag?

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Udfordringen - med eller uden VBA
Forum beskrivelse: Er du frisk på en kryptisk udfordring, eller ligger du selv inde med en 'hård nød' - så er det her det sker.
MEN HUSK - ANGIV OM LØSNINGEN SKAL VÆRE MED ELLER UDEN VBA
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3454
Udskrevet den: 23.Nov.2024 kl. 09:23


Emne: Midterste onsdag?
Besked fra: EXCELGAARD
Emne: Midterste onsdag?
Posteringsdato: 22.Apr.2018 kl. 15:04
Hej alle,

Så fik jeg en ny sjov lille opgave, som jeg tænkte passede til 'Udfordringen'  Smile

Opgaven lyder: Hvis man har et kvartals ultimo dato, hvilken dato falder kvartalets midterste onsdag så på?

Altså, hvis kvartalets ultimo dato er f.eks. 31.03.2018, så falder den midterste onsdag den 07.02.2018.

Opgaven har jeg fået i forbindelse med udarbejdelse af et arbejdspapir til indberetning til Danmarks Statistik, hvor Danmarks Statistik altså benytter denne onsdag til "tælledag".


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.



Svar:
Besked fra: Bjarnehansen
Posteringsdato: 22.Apr.2018 kl. 18:50
uploads/397/onsdag_midt_i_kvartalet.xlsx" rel="nofollow - uploads/397/onsdag_midt_i_kvartalet.xlsx

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Mads32
Posteringsdato: 22.Apr.2018 kl. 19:44
Hej EXELGAARD

Hvilken ondsag er den midterste når der er 14 onsdage i et kvartal


Besked fra: EXCELGAARD
Posteringsdato: 22.Apr.2018 kl. 19:48
Hvis der er 13 onsdage, så er det onsdag nr. 6, der er midterste (ikke helt logisk, men sådan nedrunder Danmarks Statistik).
Hvis der er 14 onsdage, bliver det således til onsdag nummer 7.

Se mit eksempel i opgaven:

Hvis kvartalets ultimo dato er f.eks. 31.03.2018, så falder den midterste onsdag den 07.02.2018.
 


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: EXCELGAARD
Posteringsdato: 22.Apr.2018 kl. 19:50
Bjarne: Det kan lade sig gøre med en enkelt formel i en celle for sig selv, uden mellemregninger og hjælpe celler  Smile


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: Mads32
Posteringsdato: 22.Apr.2018 kl. 20:35
Hej EXELGAARD

Jeg har lavet en tabel. der kan vise midterste onsdag i hvert kvartal.

Jeg har ladet alle mine hjælperækker være synlige.

Hvis der er 14 onsdage i et kvartal, beregnes det som om der er 13 onsdage i et kvartal. Ved at regne baglæns fra kvartalets sidste dato. Skal dette være anderledes skal der blot tilføjes en betingelse der tager hensyn til dette.

Jeg er spændt på at se hvordan det eventuelt løses ved hjælp af formler.

  https://www.dropbox.com/s/s3mofzkau7mvanm/Midterste%20onsdag.xlsx?dl=0" rel="nofollow - https://www.dropbox.com/s/s3mofzkau7mvanm/Midterste%20onsdag.xlsx?dl=0



Besked fra: Bjarnehansen
Posteringsdato: 22.Apr.2018 kl. 21:02
uploads/397/onsdag_midt_i_kvartalet_2.xlsx" rel="nofollow - uploads/397/onsdag_midt_i_kvartalet_2.xlsx

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Mads32
Posteringsdato: 23.Apr.2018 kl. 00:23
Hej Bjarne
Flot formel opsætning, men jeg tror du ikke har taget hensyn til skudår.

prøv 1 kvartal 2020.




Besked fra: EXCELGAARD
Posteringsdato: 23.Apr.2018 kl. 09:06
Hej alle sammen,

Tak for de gode bud, og tak for, at I tog udfordringen op - rart, at se, at 'Udfordringen' stadig lever, og at folk er villig til at tage en udfordring op  Thumbs Up

Som nævnt, var jeg på udkig efter en enkelt formel, der kunne indtastes i en celle for sig selv...
...og, her er, hvad jeg kom frem til:

=DATO(ÅR(B2);MÅNED(B2)-2;1)+VÆLG(UGEDAG(DATO(ÅR(B2);MÅNED(B2)-2;1));3;2;1;0;6;5;4)+(RUND.NED(SUMPRODUKT(--(UGEDAG(RÆKKE(INDIREKTE(DATO(ÅR(B2);MÅNED(B2)-2;1)&":"&B2)))=4))/2;0)*7)-7

...hvor vi antager, at kvartalets ultimo dato står i celle B2.

Jeg ved, at det ikke er verdens hurtigste formel, men til gengæld skal formlen typisk ikke benyttes mere end en gang i et regneark, og sløver derfor ikke regnearket nævneværdigt.

For, at spare jer for indtastningen, kan I finde et hurtigt lille regneark med formlen her:
www.excelgaard.dk/Files/Workbooks/DRF/Midtereste%20Onsdag.XLSm www.excelgaard.dk/Files/Workbooks/DRF/Midtereste Onsdag.XLSm



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: Bjarnehansen
Posteringsdato: 23.Apr.2018 kl. 09:21
her er lige hvad jeg fik lavet:

uploads/397/onsdag_midt_i_kvartalet_4.xlsm" rel="nofollow - uploads/397/onsdag_midt_i_kvartalet_4.xlsm


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: EXCELGAARD
Posteringsdato: 23.Apr.2018 kl. 09:48
Citér her er lige hvad jeg fik lavet:
uploads/397/onsdag_midt_i_kvartalet_4.xlsm" rel="nofollow - uploads/397/onsdag_midt_i_kvartalet_4.xlsm
Heh, heh - og, præcist derfor er UDF'ere gode - de gør tingene mere simple  Thumbs Up

Men, jeg synes stadig, at du blot skulle have kopieret dato-modulet ind i filen, frem for at begynde, a splittet det op  Geek


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Besked fra: Bjarnehansen
Posteringsdato: 23.Apr.2018 kl. 10:16
det prøvede jeg også men jeg kunne ikke få ugedagimåned til at virke derfor splittede jeg det op Stern Smile


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK



Print side | Luk vindue