MacroFacili: Calcolo giorno di Pasqua

La funzione riportata qui sotto calcola il giorno in cui cade la Pasqua per l'anno specificato, usa l'algoritmo di Gauss.

Per semplicità i parametri x e y sono impostati per il calcolo corretto solo fra il 1900 e il 2099.

Function DataPasqua(Anno As Integer) As Date
  x = 24 ' se anno >= 1900 And anno < 2099
  Y = 5

  A = Anno Mod 19
  B = Anno Mod 4
  C = Anno Mod 7
  D = (19 * A + x) Mod 30
  e = (2 * B + 4 * C + 6 * D + Y) Mod 7

  G = (22 + D + e)
  If (G <= 31) Then
    ' pasqua in marzo
    DataPasqua= DateSerial(Anno, 3, G)
  Else
    ' pasqua in aprile
    G = G - 31
    If (G = 26) Then
      DataPasqua = DateSerial(Anno, 4, 19)
    Else
    If (G = 25) And (D = 28) And (A > 10) Then
      DataPasqua = DateSerial(Anno, 4, 18)
    Else
      DataPasqua = DateSerial(Anno, 4, G)
    End If
    End If
  End If

End Function