Fonction Jour de Pâques

[marco57]

Bonjour à toutes et tous,

J'ai récupéré la formule suivante pour trouver le jour de Pâques en fonction de l'année :
=PLANCHER(DATE(Année;5;JOUR(MINUTE(Année/38)/2+56));7)-34

Elle est relativement simple et semble fonctionner dans une feuille de calcul.

Je souhaiterais utiliser cette formule en code VBA mais il semble que :
Application.WorksheetFunction.Floor ne fonctionne pas.

Si quelqu'un avait une idée pour résoudre mon problème, il serait le bienvenu.

Merci d'avance

Marco

 

[Hervé]

Bonjour marco, le forum

J'utilise cette fonction personnalisée, Trouvé sur le net, auteur inconnu :

Function paques(an As Integer) As Date
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, k%, l%, m%, n%, p%

'Auteur inconnu, merci à lui


    a = an Mod 19
    b = an \\ 100
    c = an Mod 100
    d = b \\ 4
    e = b Mod 4
    f = (b + 8) \\ 25
    g = (b - f + 1) \\ 3
    h = (19 * (an Mod 19) + (an \\ 100) - ((an \\ 100) \\ 4) - (((an \\ 100) - (((an \\ 100) + 8) \\ 25) + 1)) \\ 3 + 15) Mod 30
    i = (an Mod 100) \\ 4
    k = (an Mod 100) Mod 4
    l = (32 + 2 * (b Mod 4) + 2 * i - h - k) Mod 7
    m = ((an Mod 19) + 11 * h + 22 * l) \\ 451
    n = (h + l - 7 * m + 114) \\ 31
    p = (h + l - 7 * m + 114) Mod 31
    paques = DateSerial(an, n, p + 1)
End Function

Il doit y avoir plus court, mais bon, celle-ci fonctionne.

salut

 

[marco57]

Bonsoir Hervé et le Forum,

Merci à toi pour cette fonction.

A+

Marco