L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Jour de Pâques

Imprimer E-mail
5 mars 2014

L' auteur de ce code est Marc Salacroup et je l'avais trouvé sur "Le petit monde de Visual Basic" qui n'existe plus.

Public Function Jour_Paques(An As Integer) As Date

Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer
Dim g As Integer, h As Integer, i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, p As Integer

  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 * a + b - d - g + 15) Mod 30
  i = c \ 4
  k = c Mod 4
  l = (32 + 2 * e + 2 * i - h - k) Mod 7
  m = (a + 11 * h + 22 * l) \ 451
  n = (h + l - 7 * m + 114) \ 31
  p = (h + l - 7 * m + 114) Mod 31
  Jour_Paques = DateSerial(An, n, p + 1)
End Function