1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| '------------------------------------------------------------------------------------------------
Public Function CalculPaquesThomasOBeirne(f_Annee As Long) As Long
'------------------------------------------------------------------------------------------------
' Formule de Thomas O'Beirne validée de 1901 à 2099.
'------------------------------------------------------------------------------------------------
Dim n, a, b, c, d, e, p As Integer
' La fête de Pâques a été fixée par le concile de Nicée (325) au premier dimanche
' après la pleine lune qui a lieu soit le jour de l'équinoxe de printemps (21 mars),
' soit aussitôt après cette date. Pâques est donc au plus tôt le 22 mars. Si la pleine
' lune tombe le 20 mars, la suivante sera le 18 avril (29 jours après). Si ce jour est
' un dimanche, Pâques sera le 25 avril. Ainsi, la fête de Pâques oscille entre le 22 mars
' et le 25 avril, et de sa date dépendent celles des autres fêtes mobiles.
' (c) Larousse.
' Calcule la valeur de pâques:
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
n = f_Annee - 1900
a = f_Annee Mod 19
b = Int((a * 7 + 1) / 19)
c = ((11 * a) - b + 4) Mod 29
d = Int(n / 4)
e = (n - c + d + 31) Mod 7
p = 25 - c - e
CalculPaquesThomasOBeirne = DateSerial(f_Annee, 3, 31 + p)
End Function |
