PaquesSyntaxePaques(an)
Retourne la date du jour de Pâques au format "JJ/MM/AAAA". Le paramètre est au format nombre, le résultat est au format texte.
ExemplePaques(2003)
---> "20/04/2003" Scripton Paques(an)
copy an mod 19 to a
copy an div 100 to b
copy an mod 100 to c
copy b div 4 to d
copy b mod 4 to e
copy (b + 8) div 25 to f
copy (b - f + 1) div 3 to g
copy (19 * a + b - d - g + 15) mod 30 to h
copy c div 4 to i
copy c mod 4 to k
copy (32 + 2 * e + 2 * i - h - k) mod 7 to q
copy (a + 11 * h + 22 * q) div 451 to m
copy (h + q - 7 * m + 114) to z
copy z div 31 to n
copy (z mod 31) + 1 to p
if n = 3 then
copy "03" to n
else
copy "04" to n
end if
return p & "/" & n & "/" & an as string
end Paques
RemarqueAdaptation AppleScript d'un algorithme cité par J. Meeus d'après "Ecclesastical Calendar" de Butcher publié en 1876.
|