Cet algorithme bien connu sert à calculer la date du dimanche de pâques, à quoi ça sert me direz vous ? Ca sert en fait a connaître un grand nombre de jour fériés d'une année. Par exemple, le vendredi saint tombe deux jours avant le ... LUNDI de pâques, l'ascension 39 jours après, pentecôte 49 jours après ...
Source / Exemple :
Function Paques(annee As Integer) As Date
Dim var1, var2, var3, var4, var5, var6, var7
var1 = annee Mod 19 + 1
var2 = (annee \ 100) + 1
var3 = ((3 * var2) \ 4) - 12
var4 = (((8 * var2) + 5) \ 25) - 5
var5 = ((5 * annee) \ 4) - var3 - 10
var6 = (11 * var1 + 20 + var4 - var3) Mod 30
If (var6 = 25 And var1 > 11) Or (var6 = 24) Then
var6 = var6 + 1
End If
var7 = 44 - var6
If var7 < 21 Then
var7 = var7 + 30
End If
var7 = var7 + 7
var7 = var7 - (var5 + var7) Mod 7
If var7 <= 31 Then
Paques = DateValue(CStr(var7) & "/3/" & CStr(annee))
Else
Paques = DateValue(CStr(var7 - 31) & "/4/" & CStr(annee))
End If
End Function
Conclusion :
L'algorithme est founi brut, il demande quelques modifications ... à vous de jouer !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.