Calculer la date de pâques

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 987 fois - Téléchargée 75 fois

Commenter

Contenu du snippet

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 !

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de der_Kerl
S'inscrire maintenant

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.

Du même auteur (Dr SKULL)