Saber donde cae la Semana Santa

[Thales]

No pretendo hacer ninguna consulta, sino más bien comentar una curiosidad con la que me he topado y que viene a cuento dadas las fechas en las que nos encontramos.
Resulta que existen algoritmos para conocer con exactitud la fecha en la que caerá la Pascua de Resurrección (domingo de resurrección).
Por si no conocéis la existencia de estos algoritmos os pongo aquí una función que os puede ser útil (quien sabe) y que utiliza el algoritmo de Butcher.

Código Delphi [-]
function Pascua(Anio: word): TDateTime;
var
  a, b, c, d, e, f, g, h, i, k, l, m, n: word;
  Mes, Dia: word;
begin
  { Devuelve la fecha del año en la que cae la Pascua de Resurrección.
    Se utiliza para ello el Algoritmo de Butcher }
  a := anio mod 19;
  b := anio div 100;
  c := anio mod 100;
  d := b div 4;
  e := b mod 4;
  f := (b + 8) div 25;
  g := (b - f + 1) div 3;
  h := (19 * a + b - d - g + 15) mod 30;
  i := c div 4;
  k := c mod 4;
  l := (32 + 2 * e + 2 * I - h - k) mod 7;
  m := (a + 11 * h - 22 * l) div 451;
  n := h + l - 7 * m + 114;
  Mes := n div 31;
  Dia := 1 + n mod 31;

  Result := EncodeDate(Anio, Mes, Dia);
end;

Un saludo