Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Demoprogramm: Einfache Berechnung für Ostersonntag Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von ManfredW, Homepage - 28.03.2024 15:38)
 Als Antwort auf Demoprogramm: Einfache Berechnung für Ostersonntag von Dietmar - 23.03.2024 18:36
ManfredW nutzt:  CC1-Station V1.1
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
> 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

Bisherige Antworten:

Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von Dietmar - 28.03.2024 22:39)