  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo Dietmar, die Zahl 120 in meiner Osterformel habe ich bei der Entwicklung der Formel festgelegt, damit es passt. Lange habe ich darüber nachgedacht, in welchem Zusammenhang diese Zahl stehen könnte. Die Osterkennzahl erhöht sich mit dem Tag, deshalb bestimmte ich das Datum zum Tag = 0 Das ist der 27. November des Vorjahres. Da ich auch den 1. Advent mit der Osterkenzahl berechne, kam mir das Datum bekannt vor. Es ist der früheste Termin des 1.Advents. Das Kirchenjahr beginnt am 1. Advent. Damit ist meine Osterkennzahl der Jahrestag des Ostersamstages vom Kirchenjahr. Hiermit habe ich diese Erkenntnis zum ersten mal veröffentlicht. Mit freundlichen Grüßen Manfred Wilzeck > ' =========================================================================== > ' Demoprogramm: Einfache Berechnung für Ostersonntag > ' In OCBASIC 1.12a_e1 auf Open-Maxi von Dietmar Harlos am 23. März 2024 > ' =========================================================================== > > ' Die Formel stammt von der sehr guten Seite "Steuerung mit C-Control" von > ' Manfred Wilzeck: > > ' http://manfred.wilzeck.de/ > > ' --- Definitionen ---------------------------------------------------------- > > 'INCLUDE "omac.def" 'Definitionen für Open-Macro > INCLUDE "omax.def" 'Definitionen für Open-Maxi > > DIM a,b,c,e BYTE 'temporäre Variablen > > DIM tag,monat BYTE > DIM jahr WORD > > ' --- Hauptprogramm --------------------------------------------------------- > > End2Host=ON 'Bei Programmende (siehe END) gleich in den Host-Modus wechseln > > ' Titel: > > PRINT "Einfache Berechnung für Ostersonntag" > PRINT "====================================" > > ' Jahr angeben: > > jahr=2024 '2015 > > ' Berechnung durchführen: > > a=((jahr MOD 19)*19+24) MOD 30 ' (Jahr 4-stellig) > b=120+a-a/27 ' mit Ergänzung für Jahre 1954, 1981, 2049 und 2076 > c=(b+jahr*5/4-jahr/2100) MOD 7 ' mit Ergänzung gültig bis 2199 > e=b-c ' e Osterkennzahl (Easter), Bezugswert für alle beweglichen Feiertage > tag=1+(e MOD 31) ' Ostersonntag (Datum Tag) > monat=e/31 ' Ostermonat (Monat) > > ' Ausgabe: > > ?"Ostersonntag ist am: ";tag;".";monat;".";jahr > > ?:?"Programmende." > END 'Zurück in den Hostmodus. Neustart mit RETURN-Taste. > > ' --- Programmende --------------------------------------------------------- Meine Homepage: http://manfred.wilzeck.de |
| Antwort schreiben |
Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von Dietmar - 28.03.2024 22:39)