 |
 |
 |
| |
Amusez-vous et
gagnez de l'argent
|
|
 |
|
 |
|
|
|
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
|
|
|
|
 |
|
 |
| |
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
