  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
' =========================================================================== ' 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 --------------------------------------------------------- Passender Link: "Steuerung mit C-Control" von Manfred Wilzeck Meine Homepage: http://ccintern.dharlos.de |
| Antwort schreiben |
Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von ManfredW - 28.03.2024 15:38)Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von Dietmar - 28.03.2024 22:39)