Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: <<< PASEN >>>  (gelezen 7093 keer)

0 leden en 1 gast bekijken dit topic.

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
<<< PASEN >>>
« Gepost op: 14 april 2019, 11:25:09 »
Hallo Excel-fanaten,

Pasen berekenen in Excel, hoe doe je dat ook alweer ?
Neen neen, ik kom hier niet zelf een Excel-vraag stellen, maar wil er wel een woordje over kwijt…

Waarschuwing: dit artikel is uitsluitend bestemd voor oogkleploze denkers !

Ik ben steeds stomverbaasd, om niet te zeggen dat ik het altijd als een belediging van mijn ‘intelligentie’ aanvoel, als ik mensen die in andere omstandigheden tot extreem analytisch denken in staat zijn, klakkeloos zie aanvaarden dat “=EURO(("4/"&A1)/7+REST(19*REST(A1;19)-7;30)*14%;)*7-6” dé formule is om de paasdatum mee te berekenen, en vervolgens deze misvatting verder verspreiden.

(Mocht de vraag ernaar groot genoeg zijn, dan wil ik gerust een poging ondernemen om uit te leggen waarom dit pure onzin is)

Kan/mag die formule dan niet meer gebruikt worden ? Toch wel, want ze geeft het juiste resultaat in een periode beginnend bij onze grootouders en eindigend bij onze achterachterachterkleinkinderen, dus voor dat soort ‘praktische’ toepassingen best o.k.

Mijn betoog is daarom veel meer van academische dan van pragmatische aard.
Iedereen weet wellicht dat de paasdatum berekend wordt op basis van astronomische gegevens. De meeste hemellichamen hebben een (bijna) stabiele cyclus, maar, om maar de ‘bekendste’ te noemen, zon, aarde en maan hebben elk hun eigen cyclus, en daarom valt het niet mee om een vast patroon te vinden (denk maar aan schrikkeldagen of schrikkelseconden), zeker als we er ook rekening mee houden dat andere planeten voor nauwelijks merkbare maar toch relevante schommelingen kunnen zorgen.

In eeuwenoude geschriften heb ik een formule gevonden waarin (bijna tot in de perfectie, want die lichte invloed van andere planeten kon toen nog niet worden ingeschat) dat complexe patroon helemaal vervat zit.

Natuurlijk stond ik hier ook sceptisch tegenover, en dus heb ik het gecontroleerd.

Astronomen zijn, hoe ongelooflijk ook, in staat de precieze stand van de hemellichamen in de toekomst te bepalen (hoe zouden ze anders ruimtetuigen op ver verwijderde planeten kunnen laten landen?). Ze kunnen dat ook voor de verre toekomst. We mogen er dus gerust in zijn dat de paasdatums die we op de website van de Koninklijke Sterrenwacht van België vinden (1583 tot 3000) de juiste zijn.

Voor mijn controle moest ik er wel een Excelformule van maken (dat was even héél geconcentreerd bezig blijven). Excel is evenwel té beperkt om ze in één cel te krijgen, dus hulpcellen of een udf zijn onvermijdelijk.
Het resultaat is behoorlijk indrukwekkend :
De eerder genoemde formule geeft géén fouten in de periode 1900 tot 2200, maar slaat nadien serieus op hol met 322 fouten in de volgende 800 jaar, dus van 2201 tot 3000. Andere internetformules doen het of vergelijkbaar of nóg slechter.
‘Mijn’ formule geeft van 1900 tot 3000 welgeteld 0 (NUL!) fouten.

Méér dan 1 petje af voor de wetenschappers van toen die zelfs geen rekenmachientje hadden.

OK, jullie geduld is lang genoeg op de proef gesteld.
Als in A1 het jaartal staat, dan :
B1: =REST(11*(REST(A1;19)+1)+20+GEHEEL((((GEHEEL(A1/100)+1)*8)+5)/25)-5-(GEHEEL(((GEHEEL(A1/100)+1)*3)/4)-12);30)
C1: =44-ALS(OF(B1=24;EN(B1=25;REST(A1;19)+1>11));B1+1;B1)
D1: =ALS(C1<21;C1+30;C1)+7-REST((ALS(C1<21;C1+30;C1)+GEHEEL((A1*5)/4)-(GEHEEL(((GEHEEL(A1/100)+1)*3)/4)-2));7)
E1(pasen): =DATUM(A1;ALS(D1>31;4;3);ALS(D1>31;D1-31;D1))

Het is er aan te zien, niet ? Het was met al die noodzakelijke haken redelijk puzzelen om de gewonemensentaalformule van toen naar Excel te ‘vertalen’.

In vba luidt dat bv. zo :
Function pasen(j)
e = ((11 * ((j Mod 19) + 1)) + (((8 * (j \ 100 + 1)) + 5) \ 25) + 15 - (Int((3 * (j \ 100 + 1)) / 4) - 12)) Mod 30
If e = 24 Or (e = 25 And ((j Mod 19) + 1) > 11) Then e = e + 1
d = (IIf((44 - e) < 21, (44 - e) + 30, (44 - e))) + 7 - ((((j * 5) \ 4) - ((Int((3 * (j \ 100 + 1)) / 4) - 12) + 10) + (IIf((44 - e) < 21, (44 - e) + 30, (44 - e)))) Mod 7)
pasen = DateSerial(j, IIf(d > 31, 4, 3), IIf(d > 31, d - 31, d))
End Function

Mathematische groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.859
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: <<< PASEN >>>
« Reactie #1 Gepost op: 14 april 2019, 13:55:32 »
Pitufo, leuk dit soort puzzels. Ik heb zelf wel vrede met door jou genoemde afwijking in de algemeen gebruikte formule, maar het is wel goed om te zien dat het beter kan.  \o/
______________________________

Groet, Leo

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 391
  • Geslacht: Man
  • Oplossing.be
Re: <<< PASEN >>>
« Reactie #2 Gepost op: 14 april 2019, 14:31:14 »
Ik kan het niet beter verwoorden dan Red Head. \o/
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.583
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: <<< PASEN >>>
« Reactie #3 Gepost op: 14 april 2019, 18:04:18 »
Voor mij alleen maar fondant, aub  8)

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline Josc1965

  • Volledig lid
  • **
  • Berichten: 242
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
    • Taxi Schurink
Re: <<< PASEN >>>
« Reactie #4 Gepost op: 14 april 2019, 18:24:01 »
Wat een leuke manier om de Zondag mee door te brengen :)
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 391
  • Geslacht: Man
  • Oplossing.be
Re: <<< PASEN >>>
« Reactie #5 Gepost op: 14 april 2019, 22:38:39 »
Citaat
Wat een leuke manier om de Zondag mee door te brengen
Klopt
Ik heb zelfs de paus een mailtje gestuurd dat het Paas probleem  is opgelost. ;D 0:-)
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline emields

  • Volledig lid
  • **
  • Berichten: 124
  • Geslacht: Man
  • Oplossing.be
Re: <<< PASEN >>>
« Reactie #6 Gepost op: 15 april 2019, 02:07:14 »
Het is wel zodat Pasen nu valt op de zondag na de eerste volle maan na 21 maart. Vroeger viel Pasen de zondag na de eerste volle maan in de lente.

Teoretisch begint de lente, en ook de hefst, de dag waarop dag en nacht evenlang duren, door het veranderen van de hellingsgraad van de aarde vervroegt die dag ieder jaar een beetje, is nu in de vroege ochtend van 20 maart en binnen enkele jaren reeds op 19 maart.

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: <<< PASEN >>>
« Reactie #7 Gepost op: 15 april 2019, 18:41:34 »
@ RedHead,

Citaat
Ik heb zelf wel vrede met door jou genoemde afwijking in de algemeen gebruikte formule
Wat ik zelf eigenlijk ook al zei : als ik voor mijn nichtje in Ayacucho een kalender voor de komende 30 jaar maak durf ik ook die 'eenvoudige' formule gebruiken.
Maar het stoorde me altijd al dat ze voorts letterlijk nergens op slaat. Een foutenmarge van meer dan 40% is niet wat je in Excel zou verwachten. Iemand moet al minimaal één hoek te kort komen om alle paasdatums van 300 jaar op te zoeken, en vervolgens met getalletjes gaan spelen, opnieuw en opnieuw en opnieuw, tot er stomweg een formule ontstaat die voor de 300 gevallen een juiste uitkomst geeft.
Een mens zou zich afvragen : hoe lang moet dat geduurd hebben ?

@ emields,

Citaat
Het is wel zodat Pasen nu valt op de zondag na de eerste volle maan na 21 maart
Als dat zou kloppen zou Pasen ten vroegste op 23 maart kunnen vallen, maar in werkelijkheid is 22 maart ook mogelijk.

Citaat
Teoretisch begint de lente de dag waarop dag en nacht evenlang duren
Je kan op verschillende manieren bepalen wanneer dag en nacht even lang duren, dus die stelling is niet goed genoeg.
De lente begint op het moment waarop de zon loodrecht boven de evenaar staat.

Citaat
door het veranderen van de hellingsgraad van de aarde vervroegt die dag ieder jaar een beetje, is nu in de vroege ochtend van 20 maart en binnen enkele jaren reeds op 19 maart.
Klopt evenmin. Gemiddeld bekeken vervroegt het inderdaad, maar niet netjes elk jaar zoals je suggereert.
Nog zo ongeveer 80 jaar zal de lente telkens op 20 maart beginnen, behalve in 2044 en 2048. Dan is het inderdaad 19 maart om vervolgens weer naar 20 maart te verspringen.

Citaat
Het is wel zodat Pasen nu valt op de zondag na de eerste volle maan na 21 maart. Vroeger viel Pasen de zondag na de eerste volle maan in de lente.
Hangt er maar van af wat je bedoelt met "het begin van de lente". Tot nu had ik het over het astronomische begin van de lente. Daar worden ze in de katholieke kerk (waar alles orde moet zijn) niet gelukkig van, en daarom hebben ze hun eigen lentebegin finaal op 21 maart vastgelegd.

Pasen wordt dus berekend op basis van astronomische gegevens maar met wat simplificaties van de kerk, en zijn zij het niet die bepalen wanneer Pasen valt ?
In elk geval : alle gegevens noodzakelijk om met lei en griffel Pasen te berekenen zitten vervat in de formule die ik naar Excel heb omgezet. De eerstvolgende keer dat de formule een fout zal geven is in het jaar 4200 !


"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.583
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: <<< PASEN >>>
« Reactie #8 Gepost op: 15 april 2019, 21:31:21 »
De lente begint op het moment waarop de zon loodrecht boven de evenaar staat.
Ook op 21 september zijn dag en nacht even lang  ;)   equinox

En de paashaas, wanneer komt die?  ;) :)

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: <<< PASEN >>>
« Reactie #9 Gepost op: 16 april 2019, 08:17:20 »
Citaat
Ook op 21 september zijn dag en nacht even lang
Kijk, dat is nu toch wel iets dat ik zelf nog niet wist, zeker !

Vooraleer men hier gaat denken dat ik het nog meen ook, even mijn uitspraak vervolledigen :
De lente begint op het moment waarop de zon loodrecht boven de evenaar staat en op weg is naar het noorden

Los daarvan : ligt dat nu gewoon aan mezelf dat ik me voel alsof ik als eerste heb verkondigd dat de aarde niet plat maar rond is, met de gekende gevolgen ?
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.583
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: <<< PASEN >>>
« Reactie #10 Gepost op: 16 april 2019, 09:46:05 »
Los daarvan : ligt dat nu gewoon aan mezelf dat ik me voel alsof ik als eerste heb verkondigd dat de aarde niet plat maar rond is, met de gekende gevolgen ?
Niet iedereen deelt die mening, en ik begin nu zelf ook al te twijfelen: Heb al verschillende foto's van de aarde, gefotografeerd vanuit het ruimtestation gezien en afgedrukt, dikker dan een vel A4 wordt het niet....  0:-)

Of is 1 April definitief voorbij?

Groeten,

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: <<< PASEN >>>
« Reactie #11 Gepost op: 16 april 2019, 12:50:14 »
En om nóg wat verder af te wijken :
http://fe2017.com/about/about-us/

Maar let op : er bestaat een groot risico op blijvende arbeidsongeschiktheid wegens aanhoudende lachkrampen
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Josc1965

  • Volledig lid
  • **
  • Berichten: 242
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
    • Taxi Schurink
Re: <<< PASEN >>>
« Reactie #12 Gepost op: 16 april 2019, 13:39:26 »
@pitufo,
lol. :D Deed even pijn, maar ging toch wel weer vlot over...
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com