Antwort auf: Kalender Wochennummer, Feiertage

Startseite Foren Deutsches LiveCode-Forum Kalender Wochennummer, Feiertage Antwort auf: Kalender Wochennummer, Feiertage

#5359
gfz
Teilnehmer

    Liebe LCerInnen!
    Für alle die es interessiert ein kurzer Update zu meiner Anfrage. Eine Berechnung für den Ostersonntag konnte ich im Internet finden unter (https://de.wikipedia.org/wiki/Spencers_Osterformel).

    Die Berechnung der Wochennummer würde mich noch interessieren. Hat da jemand von Euch was dazu?

    Und hier in eine LC-Funktion umgewandelt:

    function getEasterSunday pYear
       put empty into tResult
       set the useSystemDate to true
       if pYear is a date then
          put pYear into tY
          put tY mod 19 into tA
          put tY div 100 into tB
          put tY mod 100 into tC
          put tB div 4 into tD
          put tB mod 4 into tE
          put (tB + 8) div 25 into tF
          put (tB - tF + 1) div 3 into tG
          put (19*tA + tB - tD - tG + 15) mod 30 into tH
          put tC div 4 into tI
          put tC mod 4 into tK
          put (32 + 2*tE + 2*tI - tH - tK) mod 7 into tL
          put (tA + 11*tH + 22*tL) div 451 into tM
          put (tH + tL - 7*tM + 114) div 31 into tN
          put ((tH + tL - 7*tM + 114) mod 31) + 1 into tP
          -- tP ist der Tag, tN das Monat auf den für das Jahr tY der Ostersonntag fällt
          put tP & "." & tN & "." & tY into tResult
       end if
       return tResult
    end getEasterSunday

    liebe Grüße,
    Georg