Kalenderberechnungen ( Osterformel )

[Tessi]

Zitat von enertegus Was spricht gegen: s=Wert*convert(pow(2f32,convert(Shifter),0f32),0u64)

Wenn es denn korrekt funktioniert spricht dagegen nur noch der unnötig hohe Rechenaufwand verglichen mit einem nativ implementierten Shift - ob das im praktischen Betrieb spürbar wird, kann ich aber nicht abschätzen.
Es stellt sich mir momentan halt noch die Frage, ob der von pow() gelieferte f32-Wert auch für alle in Frage kommenden Exponenten (0..63) ein hinreichend genaues Ergebnis liefert, das nach Konvertierung in ein u64 auch noch genau das Bitmuster ergibt, das es theoretisch ergeben muss. Hat das schon jemand mal prüfen können?

Zitat von enertegus und dann halt schick verpacken z.b. in ein Makro ShiftLinks(Wert,Shifter) usw..

Klar, das ist dann die Kür und dann auch sicher kein wirkliches Problem mehr.

[enertegus]

Zitat von Tessi Es stellt sich mir momentan halt noch die Frage, ob der von pow() gelieferte f32-Wert auch für alle in Frage kommenden Exponenten (0..63) ein hinreichend genaues Ergebnis liefert, das nach Konvertierung in ein u64 auch noch genau das Bitmuster ergibt, das es theoretisch ergeben muss.

Wenn Du einen 32 Bit Rechner hast, kannst Du da ausprobieren. Ich wage die Behauptung, das wird stimmen.
Nicht verwechseln f16: Ungenau und zum Rechnen kaum geeignet, f32: wie bei jedem "normalen" 32 Bit PC.

[wetronic]

Hallo,

wollte mich noch abschliessend melden - habe das ganze jetzt fertig:

//***************************************************************************
//*    WE_Ostertag
//***************************************************************************
//*    Bestimmung des Ostersonntag => Berechnung der bewegl. Feiertage
//*    moeglich
//*    Jahr muss 4-Stellig vorliegen und als s32 definiert sein !!
//***************************************************************************
 
 
:begin WE_Ostertag ( jahr, ostern )
 
:var dd@
:var cc@
:var jj@
:var ee@
 
dd@ = MOD( MOD(jj@,19s32) * 19s32 + 24s32, 30s32);
if dd@ > 27s32 then dd@ = dd@ -1s32 endif;
 
ee@ = convert(FLOOR( convert(jj@, 1f16 ) *5f16/4f16),1s32 )+ dd@ + 1s32;
cc@ = MOD( ee@, 7s32 );
ostern^Tag = 28s32 + dd@ - cc@;            /* Ostertag            */;
 
if ostern^Tag <= 31s32 then ostern^Mon = 3s32 endif
 
if ostern^Tag > 31s32 then {            /* Ostern im April    */;
    ostern^Tag = ostern^Tag - 31s32;
    ostern^Mon = 4s32
} endif
 
:return convert( ostern^Tag, $$ ) + $.$ + convert( ostern^Mon, $$ ) + $.$
:end 

den daraus abgeleiteten Ostertag nehme ich dann und berechnen damit die
Distanz in Tagen zum Jahr 1970 ( ähnlich Unixtime ) und davon abgeleitet die beweglichen Feiertage ...
Zur Vereinfachung habe ich hierzu 2 Makro´s Datwert und Datwert2Date.

Danke nochmals an alle - wer die restlichen Makros haben möchte => bitte PN

Gruss Wolfgang
FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}

[Bodo]

Hoi

Ich versteh' den Code nicht. Die Eingangsvariablen "jahr" und "ostern" kommen im code scheinbar nicht vor?
"jahr" ist mir klar, aber was ist "ostern"?

[wetronic]

Hallo Bodo,

die Variablen jahr und ostern sind Übergabevariablen und vorab gesetzt. Nachstehend der Aufruf im Programm. Die GA '3/0/8' trägt das aktuelle Kalenderjahr - über c_KalOster erhalte ich die Rueckgabe
von Tag und Monat ...

// Jahreswechsel => bewegliche Feiertage neu berechnen
if change('3/0/8's32 ) or systemstart() then {
 
    c_KalJahr = '3/0/8's32;    /* aktuelles Jahr, Übergabeparameter        */;
 
    WE_Ostertag( c_KalJahr, c_KalOster );    /* Berechnung OsterTag        */;
 
    /* AnzTage bis Ostern     */; 
    c_OsterDay = WE_Datwert( c_KalJahr, c_KalOsterMon, c_KalOsterTag );
    /* Berechnung der bewegl. feiertage    */;
    c_AschermittwochDay = c_OsterDay - 46s32;
    c_FaschingsDay = c_AschermittwochDay - 1s32;
    c_OstermontagDay = c_OsterDay + 1s32;
    c_HimmelfahrtDay = c_OsterDay + 39s32;
    c_PfingstDay = c_OsterDay + 49s32;
    c_PfingstmontagDay = c_PfingstDay + 1s32;
    c_FronleichDay = c_OsterDay + 60s32;
    /* Bestimmung der DatumStrings    */;
    WE_DatwertToDate( c_Ostern, c_OsterDay );
    WE_DatwertToDate( c_Ostermontag, c_OstermontagDay );
    WE_DatwertToDate( c_Aschermittwoch, c_AschermittwochDay );
    WE_DatwertToDate( c_Fasching, c_FaschingsDay );
    WE_DatwertToDate( c_Himmelfahrt, c_HimmelfahrtDay );
    WE_DatwertToDate( c_Pfingsten, c_PfingstDay );
    WE_DatwertToDate( c_Pfingstmontag, c_PfingstmontagDay );
    WE_DatwertToDate( c_Fronleich, c_FronleichDay )
 
} endif 

Mir ist klar, fuer die Übergabe und Rueckgabe der Werte gibt es viele Wege ;-)
Ich wollte hier im Kern den geprüften und funktionierenden Code fuer die Osterberechnung zeigen ...
FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}

[Bodo]

Hoi

Und was ist / woher kommt "c_KalOster" ?
Dann geb' ich schon ruh'.

[wetronic]

Hallo Bodo,

kein Problem: c_KalOster ergibt nur den Rueckgabewert und wird durch
das Makro definiert. Ich kann somit zugreifen auf:
c_KalOsterMon ( = Monat des Ostertages ) und c_KalOsterTag ( = Tag von Ostern ) zugreifen. Als Return erhalte ich auch noch einen String im Format DD.MM. den ich aktuell aber nicht verwende.

Gruss

FB_Addon_TelNo{ height:15px !important; white-space: nowrap !important; background-color: #0ff0ff;}

[Bodo]

Hoi

Ah soo.

:begin WE_Ostertag ( jahr, ostern ) 

bzw.

c_KalJahr = '3/0/8's32;    /* aktuelles Jahr, Übergabeparameter */;
WE_Ostertag( c_KalJahr, c_KalOster ); 

c_KalJahr wird an die "Funktion" übergeben und c_KalOster ist das Ergebnis.
Ich dachte es geht so:
ostern = WE_Ostertag (Jahr);

[MrKNX]

Ich bin etwas verwirrt, könnte mir jemand bitte ein Beispiel geben, wie und wofür ihr es verwendet?

Lasst ihr euch den Feiertag in der Visu darstellen?

Um es zu verwenden, braucht man also das Makro und den Aufruf im EIBPC?

Makro

//***************************************************************************
//*    WE_Ostertag
//***************************************************************************
//*    Bestimmung des Ostersonntag => Berechnung der bewegl. Feiertage
//*    moeglich
//*    Jahr muss 4-Stellig vorliegen und als s32 definiert sein !!
//***************************************************************************
:begin WE_Ostertag ( jahr, ostern )
:var dd@
:var cc@
:var jj@
:var ee@
dd@ = MOD( MOD(jj@,19s32) * 19s32 + 24s32, 30s32);
if dd@ > 27s32 then dd@ = dd@ -1s32 endif;
ee@ = convert(FLOOR( convert(jj@, 1f16 ) *5f16/4f16),1s32 )+ dd@ + 1s32;
cc@ = MOD( ee@, 7s32 );
ostern^Tag = 28s32 + dd@ - cc@;            /* Ostertag            */;
if ostern^Tag <= 31s32 then ostern^Mon = 3s32 endif
if ostern^Tag > 31s32 then {            /* Ostern im April    */;
    ostern^Tag = ostern^Tag - 31s32;
    ostern^Mon = 4s32
} endif
:return convert( ostern^Tag, $$ ) + $.$ + convert( ostern^Mon, $$ ) + $.$
:end 

EIBPC

// Jahreswechsel => bewegliche Feiertage neu berechnen
if change('3/0/8's32 ) or systemstart() then {
    c_KalJahr = '3/0/8's32;    /* aktuelles Jahr, Übergabeparameter        */;
    WE_Ostertag( c_KalJahr, c_KalOster );    /* Berechnung OsterTag        */;
    /* AnzTage bis Ostern     */; 
    c_OsterDay = WE_Datwert( c_KalJahr, c_KalOsterMon, c_KalOsterTag );
    /* Berechnung der bewegl. feiertage    */;
    c_AschermittwochDay = c_OsterDay - 46s32;
    c_FaschingsDay = c_AschermittwochDay - 1s32;
    c_OstermontagDay = c_OsterDay + 1s32;
    c_HimmelfahrtDay = c_OsterDay + 39s32;
    c_PfingstDay = c_OsterDay + 49s32;
    c_PfingstmontagDay = c_PfingstDay + 1s32;
    c_FronleichDay = c_OsterDay + 60s32;
    /* Bestimmung der DatumStrings    */;
    WE_DatwertToDate( c_Ostern, c_OsterDay );
    WE_DatwertToDate( c_Ostermontag, c_OstermontagDay );
    WE_DatwertToDate( c_Aschermittwoch, c_AschermittwochDay );
    WE_DatwertToDate( c_Fasching, c_FaschingsDay );
    WE_DatwertToDate( c_Himmelfahrt, c_HimmelfahrtDay );
    WE_DatwertToDate( c_Pfingsten, c_PfingstDay );
    WE_DatwertToDate( c_Pfingstmontag, c_PfingstmontagDay );
    WE_DatwertToDate( c_Fronleich, c_FronleichDay )
} endif 

Könnte mir hier Bitte jemand Klarheit schaffen!!??

[wetronic]

Ich nütze es für das Öffnen der Jalousien morgens: werktags: 7:00 / Feiertags: 8:00

Gruss Wolfgang