Feiertagsberechnung - Skript

[DanielP]

Ich habe die tmpA genommen, die oben deklariert und mit der aktuellen Jahreszahl gefüllt, aber nie benutzt wird. Also so wie im Originalskript hier, nur mit einer tmp-Variable.

tmpA wird im Skript benutzt und darf natürlich nicht mit dem Jahr gefüllt werden..

tmpA ist der Wochentag und wird 2 Zeilen darunter zur Auswertung von tmpB verwendet.

Code: Alles auswählen

integer tmpA= system.Date("%w").ToInteger();
string tmpB = "Sonntag;Montag;Dienstag;Mittwoch;Donnerstag;Freitag;Samstag";
tmpB = tmpB.StrValueByIndex(";",tmpA);

Wenn Du möchtest, dann kannst Du ja auch einmal mein Skript testen.

In AndiNs Version ist tmpA das aktuelle Kalenderjahr.
http://homematic-forum.de/forum/viewtop ... 00#p275416

[dogfight76]

werden.


@AndiN
Du könntest mir mal eine Liste zukommen lassen, welche tmp-Variabeln Du in der Sammlung schon benutzt, dann könnte ich mein neues all-Inclusive-Kalenderskript V2.0.0, welches noch diese Woche kommen wird, Dir gleich mit tmp-Variablen zur Verfügung stellen. Das neue Skript ist noch umfangreicher und bedient über 300 Systemvariabeln zum Thema Kalender/Tagesberechnungen in einem Aufwasch.


.

Wo ist die V2.0.0 zu finden ?

Gruß

[fischmir]

Sobald diese fertig ist, wird es hier geben:

http://homematic-forum.de/forum/viewtop ... 31&t=30848

[TomCCU2]

Hallo zusammen,

ich habe das Skript zur Berechnung der Arbeitstage als eigenständiges Skript angelegt. Bei mir wird aber immer für beide Variablen wahr angezeigt, also immer Arbeitstag, obwohl z.B. Sonntag ist.
Woran könnte das liegen?

Gruß, Thomas

[dondaik]

- wohl daran das ein fehler vorliegt ...
raten kann man nicht, deshalb bitte das prg einstellen ..

[Cash]

Wohl eher kein Fehler sondern max. ein Denkfehler.

Das Feiertagsscript guckt ob ein Feiertag ist und da in Deutschland der Samstag und Sonntag kein Feiertag ist sondern lediglich und nur für manche Menschdn ein freier Tag ist, ist die Anzeige korrekt.

Gleiches gilt für die Urlaubstage. Sofern Du den Samstag und Sonntag nicht als Urlaubstag eingibst wird er Dir nichts anderes anzeigen.

[tsa]

Betrifft den Download Feiertage_V2.2.1r2.txt
In der Methode zur Berechnung des Buß- und Bettages ist ein Fehler enthalten. In Schaltjahren wird dieser Feiertag einen Tag zu spät berechnet.
Grund ist die falsch implementierte Methode der Wochentagberechnung. Bei dieser Methode (Siehe Wikipedia) darf die hineinprogrammierte
Schaltjahreskorrektur...

Code: Alles auswählen

! SJK = Zahl                                  => Schaltjahreskorrektur: Zahl = 0 wenn kein Schaltjahr, sonst Zahl = 6

...nur für Datumswerte VOR dem 1. März ausgeführt werden, hier wird aber der Wochentag vom 24.12. ermittelt.

Zur Korrektur, kann im Quelltext an dieser Stelle:

Code: Alles auswählen

       !****************************
        ! 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

...einfach die Zeile...

Code: Alles auswählen

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

...durch die Zeile...

Code: Alles auswählen

zahl = 0;

...ersetzt werden.

[BadenPower]

Und nicht vergessen, den 31.10.2017 als bundesweiten Feiertag zu integrieren.

.

[Cash]

@tsa bist Du Dir sicher? Das Script ist von 2010 es gab also 2012 bereits ein Schaltjahr. Es hätte also auffallen müssen. Habe den Thread aber nicht komplett gelesen.

Bisher passten 2016 zumindest alle Feiertage?
Hat die Änderung Auswirkung auf nicht Schaltjahre?

@BadenPower der 31.10. ist ja leider nur ein einmalgier Feiertag. Ich vermute da wird es für viele leichter sein ein das einmlaig durch ein zeitgedteuertes Programm zu regeln

[BadenPower]

@BadenPower der 31.10. ist ja leider nur ein einmalgier Feiertag. Ich vermute da wird es für viele leichter sein ein das einmlaig durch ein zeitgedteuertes Programm zu regeln

Derjenige, welcher mein Skript verwendet, der muß nur in die Systemvariable "SYS-Feiertag-TermineZusatz" das Datum 31.10.2017 eintragen und der Feiertag wird dann automatisch und einmalig erkannt und als Feiertag ausgegeben.

Fertig.
.