Fonction Jour de Pâques

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

Cliquez pour agrandir...