Feiertagsberechnung - Skript

[lexnared]

Ich habe bereits die Systemvaraibale Feiertage angelegt

systemvariable.PNG (9.06 KiB) 2409 mal betrachtet

und das Script

Code: Alles auswählen

! Das Skript berechnet das Osterdatum und die Feiertage im aktuellen Jahr,
    ! prueft ob heute und morgen ein Feiertag ist und hinterlegt das Ergebnis in den
    ! Systemvariablen "Feiertag_heute" und "Feiertag_morgen"

    ! Script von Peter Beck (01-2011)
    ! Österreichergänzung von randyp (05-2012)
    ! Version 2.2.1r2
    ! Sachsen eingearbeitet bzw. korrigiert von Matthias Herold (11-2013)
    ! Sachsen hat Buß- und Bettag: hinzugefügt, Saarland nicht: gelöscht

    ! Es werden folgende Systemvariablen benötigt:
    ! Feiertag_heute  (Typ: Boolean)
    ! Feiertag_morgen (Typ: Boolean)

    boolean Rosenmontag = 0; ! Rosenmontag ein Brauchtumstag? 1=Ja/0=Nein
    boolean Silvester   = 1;      ! Silvester stets ein freier Tag? 1=Ja/0=Nein
    boolean Heiligabend = 1;    ! Heiligabend stets ein freier Tag? 1=Ja/0=Nein

    string land  = "DE";      ! AT oder DE
    string bland = "RP";     ! Bundesland in DE, in den wir wohnen (in Österreich auch für bland AT eintragen)

    ! Fuer "bland" bitte folgende Abkuerzungen benutzen:
    ! BW = Baden-Württemberg
    ! BY = Bayern
    ! BE = Berlin
    ! BB = Brandenburg
    ! HB = Bremen
    ! HH = Hamburg
    ! HE = Hessen
    ! MV = Mecklenburg-Vorpommern
    ! NI = Niedersachsen
    ! NW = Nordrhein-Westfalen
    ! RP = Rheinland-Pfalz
    ! SL = Saarland
    ! SN = Sachsen
    ! ST = Sachen-Anhalt
    ! SH = Schleswig-Holstein
    ! TH = Thüringen

    ! AT = Österreich


    !****************************************************
    ! Ab hier Script CODE - Don't change behind this line
    !****************************************************

    ! Berechnen des Ostersonntags im aktuellen Jahr

    integer Jahr = system.Date("%Y").ToInteger(); ! Das aktuelle Jahr ermitteln
    integer oTag;   ! Das Tagesdatum vom Ostersonntag
    integer oMonat; ! Das Monatsdatum von Ostersonntag
    string oDatum;  ! Das komplette Datum vom Ostersonntag

    integer LVar1;  ! Wird für die Berechnungen benötigt
    integer LVar2;  ! Wird für die Berechnungen benötigt
    integer LVar3;  ! Wird für die Berechnungen benötigt
    integer zahl;   ! Wird für die Berechnungen benötigt

    ! Die modifizierte Gauss-Formel nach Lichtenberg

    LVar1 = ((19 * (Jahr % 19)) + (15 + (((3 * (Jahr / 100)) + 3) / 4) - (((8 * (Jahr / 100)) + 13) / 25))) % 30;
    LVar2 = (LVar1 / 29) + (((LVar1 / 28) - (LVar1 / 29)) * ((Jahr % 19) / 11));
    LVar3 = 7 - (((21 + LVar1 - LVar2) - (7 - ((Jahr + (Jahr / 4) + (2 - (((3 * (Jahr / 100)) + 3) / 4))) % 7))) % 7);
    oTag  = (21 + LVar1 - LVar2) + LVar3;

    ! Den errechneten Wert formatieren. Ausgehend vom Monat März

    if (oTag > 31) { ! Der Monat März hat nur 31 Tage -> Ostern im April

        oMonat = 4;
        oTag = oTag - 31;

    } else { oMonat = 3; } ! Ostern ist im März

    ! Das Ergebnis in Variable oDatum hinterlegen

    if (oTag < 10) {
        oDatum = "0" # oTag.ToString() # "." # "0" # oMonat.ToString() # "." # Jahr.ToString();
    } else {
        oDatum = oTag.ToString() # "." # "0" # oMonat.ToString() # "." # Jahr.ToString();
    }

    ! Ermitteln, wieviele Tage der Februar im aktuellen Jahr hat

    zahl = Jahr % 4;

    if (zahl == 0) { ! Ein Schaltjahr -> Feb. = 29 Tage
        string mTage = "31,29,31,30,31,30,31,31,30,31,30,31"; ! Anzahl der Tage im Monat Jan.-Dez.
    } else {
        string mTage = "31,28,31,30,31,30,31,31,30,31,30,31"; ! Anzahl der Tage im Monat Jan.-Dez.
    }

    string sDatum = system.Date("%d.%m."); ! Das heutige Datum
    integer Durchlauf = 0;

    while (Durchlauf < 2)
    {
        boolean Feiertag = 0; ! 0/1 = kein/Feiertag

        !***************************************************************************
        ! Feste Feiertage bundesweit, fuer DE und AT
        !***************************************************************************

        if (sDatum == "01.01.") { Feiertag = 1; } ! Neujahr
        if (sDatum == "01.05.") { Feiertag = 1; } ! Maifeiertag - Tag der Arbeit
        if (sDatum == "25.12.") { Feiertag = 1; } ! 1. Weihnachtstag
        if (sDatum == "26.12.") { Feiertag = 1; } ! 2. Weihnachtstag

        !***************************************************************************
        ! Feste Feiertage bundesweit in DE
        !***************************************************************************
        if (land == "DE") {
            if (sDatum == "03.10.") { Feiertag = 1; } ! Tag der Deutschen Einheit
        }

        !***************************************************************************
        ! Feste Feiertage bundesweit in AT
        !***************************************************************************
        if (land == "AT") {
            if (sDatum == "26.10.") { Feiertag = 1; } ! Österreichischer Nationalfeiertag
            if (sDatum == "08.12.") { Feiertag = 1; } ! Maria Empfaengnis
        }

        !***************************************************************************
        ! Eigene, feste Feiertage?
        !***************************************************************************

        if ((Heiligabend) && (sDatum == "24.12.")) { Feiertag = 1; } ! Weihnachten
        if ((Silvester) && (sDatum == "31.12."))   { Feiertag = 1; } ! Silvester

        !***************************************************************************
        ! Fester Feiertag in BW, BY, ST, AT
        !***************************************************************************

        if ((bland == "BW") || (bland == "BY") || (bland == "ST") || (land == "AT")) {
            if (sDatum == "06.01.") { Feiertag = 1; } ! Erscheinungsfest - Hl. 3 Koenige
        }

        !***************************************************************************
        ! Fester Feiertag in BB, MV, SA, ST, TH, SN
        !***************************************************************************

        if ((bland == "BB") || (bland == "MV") || (bland == "SA") || (bland == "ST") || (bland == "TH") || (bland == "SN")) {
            if (sDatum == "31.10.") { Feiertag = 1; } ! Reformationstag
        }

        !***************************************************************************
        ! Fester Feiertag in BW, BY, NW, RP, SL, AT
        !***************************************************************************

        if ((bland == "BW") || (bland == "BY") || (bland == "NW") || (bland == "RP") || (bland == "SL") || (land == "AT")) {
            if (sDatum == "01.11.") { Feiertag = 1; } ! Allerheiligen
        }

        !***************************************************************************
        ! Fester Feiertag in BY (nicht überall), SL, AT
        !***************************************************************************

        if ((bland == "BY") || (bland == "SL") || (land == "AT")) {
           if (sDatum == "15.08.") { Feiertag = 1; } ! Maria Himmelfahrt
        }
		
		!***************************************************************************
        ! test ergänzung test
        !***************************************************************************

        if ((bland == "RP") || (bland == "SL") || (land == "AT")) {
           if (sDatum == "31.12.") { Feiertag = 1; } ! Test Urlaub
        }

        !***************************************************************************
        !** Bewegliche Feiertage bundesweit **
        !***************************************************************************

        string feiertage = "";

        if (land == "DE") {
            feiertage = "0,1,-1,39,50"; ! Array mit Differenztage zum Ostersonntag
                                        ! Ostersonntag, Ostermontag, Karfreitag, Christi Himmelfahrt, Pfingstmontag
        }

        if (land == "AT") {
            feiertage = "0,1,39,50";    ! Array mit Differenztage zum Ostersonntag
                                        ! Ostersonntag, Ostermontag, Christi Himmelfahrt, Pfingstmontag
        }

        !***************************************************************************
        ! Bewegliche Feiertage BW, BY, HE, NW, RP, SL, (SA, TH nicht überall), AT
        !***************************************************************************

        if ((bland == "BW") || (bland == "BY") || (bland == "HE") || (bland == "NW") || (bland == "RP") || (bland == "SL") || (bland == "SA") || (bland == "TH") || (land == "AT")) {
            feiertage = feiertage # ",60"; ! Fronleichnam
        }

        !***************************************************************************
        !***   Hier evtl. weitere Feier-/Brauchtumstage ***
        !***************************************************************************

        if (Rosenmontag) {
            feiertage = feiertage # ",-48"; ! Rosenmontag stets 48 Tage vor dem Ostersonntag
        }

        !***************************************************************************
        ! Ab hier werden die Feiertage berechnet
        !***************************************************************************

        ! Anzahl der Tage im Ostermonat
        zahl = (3 * oMonat) - 3;
        integer oTage = mTage.Substr(zahl, 2).ToInteger(); ! Anzahl der Tage im Ostermonat

        string fDatum;    ! Das Feiertagsdatum
        integer fDiff;    ! Anzahl der Tage von Ostersonntag entfernt
        boolean Schleife; ! Für die Berechnungen in der while-Schleife notwendig

        string index;
        foreach(index, feiertage.Split(",")) {

            fDiff = index.ToInteger();
            Schleife = 1;

            zahl = oTag + fDiff; ! Differenztage zum Referenztag hinzurechnen

            if (fDiff > 0) {
                if (zahl > oTage) {
                    zahl = zahl - oTage; ! Sind wir ausserhalb des Referenzmonats?
                } else { ! Nein => Berechnungschleife nicht durchlaufen.
                   Schleife = 0;
                   LVar2 = oMonat;
                }
            } else {
                if (zahl > 0) { ! Wenn innerhalb des Referenzmonats => Berechnungsschleife nicht durchlaufen.
                    Schleife = 0;
                    LVar2 = oMonat;
                }
            }

            LVar1 = 0;

            if (fDiff > 0) {
                while (Schleife) {
                    LVar1 = LVar1 + 1.00;
                    LVar2 = oMonat + LVar1;
                    LVar3 = (3 * LVar2) - 3;
                    zahl = zahl - mTage.Substr(LVar3, 2).ToInteger();
                    if (zahl <= 0) { ! Aktueller Monat gefunden
                        Schleife = 0;
                        zahl = zahl + mTage.Substr(LVar3, 2).ToInteger(); ! Wieder addieren, um den Tag zu berechnen
                    }
                }
            } else {
                if (fDiff < 0) {
                    while (Schleife) {
                        LVar1 = LVar1 + 1.00;
                        LVar2 = oMonat - LVar1;
                        LVar3 = (3 * LVar2) - 3;
                        zahl = zahl + mTage.Substr(LVar3, 2).ToInteger();
                        if (zahl > 0) { ! Aktueller Monat gefunden
                            Schleife = 0;
                        }
                    }
                }
            }

            if (zahl < 10) {
                fDatum = "0" # zahl.ToString() # ".";
            } else {
                fDatum = zahl.ToString() # ".";
            }

            if (LVar2 < 10) {
                fDatum = fDatum # "0" # LVar2.ToString() # ".";
            } else {
                fDatum = fDatum # LVar2.ToString() # ".";
            }

            if (sDatum == fDatum) { Feiertag = 1; }
        }

        !****************************
        ! Beweglicher Feiertag im SN
        !****************************

        if (bland == "SN") {

            ! Buß- und Bettag (Mittwoch vor dem Sonntag vor dem 1. Advent)

            fDiff = 32; ! 32 Tage vor dem 4. Advent

            ! Um den 4. Advent zu ermitteln, muss zunächst der Wochentag des 24. Dez. ermittelt werden

            ! Wochentagberechnung wie folgt:

            ! TZ  = Tag mod 7                             => Tag = 24 fuer den 24.12.
            ! MZ = 5                                      => 0,3,3,6,1,4,6,2,5,0,3,5 (Fuer jeden Monat Jan. bis Dez. eine Ziffer)
            ! JZ = (Zahl + (Zahl / 4)) mod 7              => Zahl = 10, die letzten beiden Ziffern der Jahreszahl 2010
            ! JHZ = (3 - (Zahl mod 4)) * 2                => Zahl = 20, die ersten beiden Ziffern der Jahreszahl 2010
            ! SJK = Zahl                                  => Schaltjahreskorrektur: Zahl = 0 wenn kein Schaltjahr, sonst Zahl = 6
            ! Ergebnis = (TZ + MZ + JZ + JHZ + SJK) mod 7 => 0 = So, 1 = Mo, 2 = Di, 3 = Mi, 4 = Do, 5 = Fr, 6 = Sa

            ! Mit dieser Rechnung kann man zu jedem Datum den Wochentag berechnen.

            LVar1 = oDatum.Substr(8, 2).ToInteger();
            zahl  = (LVar1 + (LVar1 / 4)) % 7;
            LVar1 = oDatum.Substr(6, 2).ToInteger();
            LVar2 = ((3 - (LVar1 % 4)) * 2) + zahl;
            LVar1 = oDatum.Substr(6, 4).ToInteger() % 4;

            if (LVar1 == 0) { zahl = 6; } else { zahl = 0; }

            LVar1 = ((24 % 7) + 5 + LVar2 + zahl) % 7; ! Ergebnis (LVar1) ist die Wochentagszahl

            ! Feiertag ermitteln: 30 Novembertage - (fDiff + Wochentagszahl - 24)
            ! Der Monat ist stets der November

            zahl = 30 - (fDiff + LVar1 - 24);

            fDatum = zahl.ToString() # ".11.";

            if (sDatum == fDatum) { Feiertag = 1; }
        }

        if (Durchlauf == 0) {
            dom.GetObject('Feiertag_heute').State(Feiertag);
            Durchlauf = 1;

            ! Datum von morgen für den 2. Durchlauf ermitteln

            LVar1 = system.Date("%d").ToInteger() + 1.00; ! Einen Tag weiter --> morgen
            index = system.Date("%m");
            LVar2 = index.ToInteger();

            zahl = (3 * LVar2) - 3;
            LVar3 = mTage.Substr(zahl, 2).ToInteger(); ! Anzahl der Tage im aktuellen Monat
            if (LVar1 > LVar3) { ! Wenn Monatsgrenze überschritten wurde
                sDatum = "01.";
                if (LVar2 == 12) {
                    sDatum = sDatum # "01.";
                } else {
                    LVar2 = LVar2 + 1.00;
                    if (LVar2 < 10) { sDatum = sDatum # "0" # LVar2.ToString() # "."; } else { sDatum = sDatum # LVar2.ToString() # "."; }
                }
            } else {
                if (LVar1 < 10) { sDatum = "0" # LVar1.ToString() # "." # index # ".";} else { sDatum = LVar1.ToString() # "." # index # "."; }
            }
        } else {
            dom.GetObject('Feiertag_morgen').State(Feiertag);
            Durchlauf = 2;
        }
    }

mit einem test ergänzt

Code: Alles auswählen

!***************************************************************************
        ! test ergänzung test
        !***************************************************************************

        if ((bland == "RP") || (bland == "SL") || (land == "AT")) {
           if (sDatum == "31.12.") { Feiertag = 1; } ! Test Urlaub
        }

das Script lasse ich täglich um 01.00 ausführen.

Jedoch bekomme ich noch unter Status und Bedinungen --> Systemvariablen eine "0" bei Feiertag ausgegeben.

Hier meine einstellungen

Worin liegt nun mein fehler?

[BadenPower]

Ich habe bereits die Systemvaraibale Feiertage angelegt

Worin liegt nun mein fehler?

Das Skript, welches Du verwendest setzt keine Systemvariable mit dem Namen "Feiertag".

Die Systemvariablen haben die Namen "Feiertag_heute" und Feiertag_morgen".
Asserdem müssen bei diesem Skript alle Systemvariablen angelget sein, damit es fehlerfrei funktioniert.

.

[lexnared]

Danke, habe es soweit abgeändert!
Funktioniert auch soweit

systemvariable 01 änderun.PNG (17.08 KiB) 2373 mal betrachtet

systemvariable 01 status bedinungen.PNG (6.27 KiB) 2373 mal betrachtet

Was meinst du denn mit

"Ausserdem müssen bei diesem Skript alle Systemvariablen angelget sein, damit es fehlerfrei funktioniert."

Es sind doch nur zwei

Code: Alles auswählen

   ! Feiertag_heute  (Typ: Boolean)
    ! Feiertag_morgen (Typ: Boolean)

[BadenPower]

Was meinst du denn mit

"Ausserdem müssen bei diesem Skript alle Systemvariablen angelget sein, damit es fehlerfrei funktioniert."

Es sind doch nur zwei

Du hattest aber doch nur eine Variable angelegt.

Ausserdem gibt es von diesem Skript auch noch weitere Versionen, bei denen noch eine weitere Variable angelegt werden muss.

.

[kaiserschmarrn]

Lieber Petrus,

ich bin neu hier im Forum, aber schon lange eine HomeMatic CCU2 Nutzer.
Gerne möchte ich Dein script für die Urlaubstage einsetzen und habe mir hierzu das Script "Urlaubstage_V3.01.txt" angesehen.

Ich möchte das gerne einsetzen.
In Deinem Script wird als Systemvariable "Urlaubstage" vom Typ 'Werteliste' gerfordert. Leider kann ich damit an keiner App oder CCU-Programm die Urlaubszeiten reinschreiben, da ich als Werteliste diese nur in der CCU per KONFGURATION der Variable setzen kann.

Ich bin keine Script Profi, hätte aber eine Bitte an Dich wenn erlaubt.

Kannst Du die Variable "Urlaubstage" (oder ein anderer neuer Name) bitte vom Typ 'Zeichenkette' in Deinem Script verlangen, in die man dann die Urlaubstage reinschreibt, wie von Dir im Script beschreiben (tt.mm.;tt.mm.-tt.mm.;tt.mm.).

Eine Variable mit Zeichenkette, kann von jeder App beschrieben werde.
Das wäre eine super Sache.

Danke und Grüße
Toni

[papi]

Nimm doch einfach das "Kalender-Skript - all inclusive - MEGA-Version für D-A-CH" von BadenPower (einen Beitrag über Deinem, in seiner Signatur).

Besser geht nicht und da hast Du genau das, was Du suchst.

[Cash]

alternativ einfach eine Zeile austauschen:

string uTage = dom.GetObject('SV Urlaubstage').Variable(); !Datumswerte aus der SV auslesen

im org Script heißt es Valuelist statt Variable.

So habe ich es zumindest bei mir. Hatte nämlich die gleiche Frage vor langer Zeit hier im Forum gestellt.

[kaiserschmarrn]

Vielen Dank für die schnellen Antworten.
Spitze 2 Tipps.

Danke
Toni

[Visu]

Hallo zusammen,
saubere Arbeit.
Leider habe ich ein Problem, ich verwende das F Skript in der Version 2.2.1r2 mit der Ergänzung Arbeitstag/WE und das U Skript in der Version 3.01. Bei mir wird aber "Arbeitstag_morgen" auf ja gesetzt, obwohl morgen ja Samstag ist? Muss ich irgendwo im Skript noch einstellen wann ein Arbeitstag ist? Mo-Fr, oder eine Zahl anpassen?
Die Ergänzung zeigt's mir an...

Zweite Frage:
Welche Werte haben denn für das Wandthermostat Prio? Die Werte die ich über eine Programm vergebe ( sofort > Soll Temp. auf > 22°C) oder die Werte die ich unter Geräte im Wandthermostat vergebe?

G.V.

[Xel66]

Zweite Frage:
Welche Werte haben denn für das Wandthermostat Prio?

Es gibt keine Priorität. Der zuletzt gesetzte Wert ist gültig. Soll heißen, ein manuell oder per Programm gesetzter Sollwert überschreibt den letzten.

In meinen Thermostaten ist als Profil der kleinste gemeinsame Nenner hinterlegt. Eine Heizzeit am Morgen in den benutzten Räumen und eine ab frühen Nachmittag bis zur Nachtabsenkung. Alle Abweichungen hiervon regle ich in Abhängigkeit von Systemvariablen (z.B. Feiertag, Ferien, Urlaub, Schicht). Diese Vorgensweise ist für mich am übersichtlichsten.

Zu Deiner ersten Frage kann ich nichts sagen. Ich benutze eine ältere reine Feiertagsversion. Ich vermute eine falsche Landeseinstellung.

Gruß Xel66