Startseite › Foren › Deutsches LiveCode-Forum › Kalender Wochennummer, Feiertage › Antwort auf: Kalender Wochennummer, Feiertage
April 19, 2018 um 05:50 Uhr
#5359
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