|
 |
 |
 |
| |
Calcul de la DATE DE PAQUES 
Calcul de la DATE DE PAQUES d'une année exprimée en jour/mois = 1 variable de sortie (Str) en réalité composée de 2 variables (Int) !
Public Function Paques(année) As String
Dim C3 As Integer, C4 As Integer, C5 As Integer, C6 As Integer
Dim C7 As Integer, C8 As Integer, C9 As Integer
Dim jou As Integer, moi As Integer
C3 = année - 1900
' année = l'année !!
C4 = C3 Mod 19
C5 = Int((C4 * 7 + 1) / 19)
C6 = Int((C4 * 11 + 4 - C5) Mod 29)
C7 = Int(C3 / 4)
C8 = (C3 + C7 + 31 - C6) Mod 7
C9 = 25 - C6 - C8
If C9 > 0 Then ' N° de mois
moi = 4
Else
moi = 3
End If
If C9 > 0 Then 'N° de jour
jou = C9
Else
jou = 31 + C9
End If
Paques = CStr(jou) & "/" & CStr(moi)
' et éventuellement & "/" & année
End Function
|
|
 |
|
 |
|
IDDN Certification
