Calculer la date de pâques

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 046 fois - Téléchargée 75 fois

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

philgriadmin
Messages postés
6
Date d'inscription
vendredi 16 juin 2006
Statut
Membre
Dernière intervention
9 février 2007
-
Ne sachant pas si ton algorithme est corrigé j'ai créé un algorithme sur la base de celui de Oudin (à partir de 1583 sans limite de siècles) avec toutes les explications que j'ai pu trouver.
Voir : http://www.vbfrance.com/code.aspx?ID=39733
@+
TanK__1001101
Messages postés
62
Date d'inscription
jeudi 26 mai 2005
Statut
Membre
Dernière intervention
30 mai 2007
-
Bien sur que si, Kalobit, paques c'est en fonction de la lune, plus exactement c'est le dimanche qui suit la pleine lune, qui celle-ci doit se trouver au plus tot le 22 mars et au plus tar le 25 avril...

A corriger dans ton algo pour éviter un jour de paques en octobre ;)

@+
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2 -
paques, c'est pas en fonction de la lune:)))

genre le dimanche qui suit la première pleine lune de printemps.

le printemps en octobre, je le sens moyen. peut être en 3048 lol
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1 -
C'est une méthode que j'ignorai, différente de celle de Gauss, de Jones et de O'beirne (qui sont les classiques) . Tel quel elle fonctionne pour toutes les dates du calendrier grégorien (à partir de 1583).
Peux-tu, s'il te plait, nous fournir le nom de l'auteur et l'endroit où on peut trouver une doc sur l'algoritme.
Je voudrais savoir dans quelle tranche d'année fonctionne l'algorithme? Parce que j,arrive avec des dates de pâques qui tombent dans le mois d'octobre, de novembre, de février...

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.