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
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