Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 714 fois - Téléchargée 77 fois
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
29 sept. 2006 à 11:17
Voir : http://www.vbfrance.com/code.aspx?ID=39733
@+
26 mai 2005 à 11:46
A corriger dans ton algo pour éviter un jour de paques en octobre ;)
@+
5 juin 2004 à 16:34
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
14 nov. 2003 à 15:32
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.
29 juil. 2001 à 07:17
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.