Semana Santa y Pascua

[xavi]

Palabras clave: calcular, obtener, averiguar, saber, semana santa, pascua, domingo
Autor: GalileoGali
Extraído de: EXCELGALI

Pregunta
¿Como calcular el domingo de pascua y, por extensión, la semana santa?

Buscando en la web se encuentra este link con una función en Excel para calcular el domingo de pascua. La modificación de esa función sería así:

Código [Seleccionar] Expandir


Function DomingoPascua(intAño As Integer) As Date
    On Error GoTo ErrorHandler
   
    ' De: http://excelgali.foroactivo.com/t155-calcular-semana-santa-y-pascua
   
    Dim b, c, d, e, f, g
   
    b = intAño - 1900
    c = b Mod 19
    d = Int((7 * c + 1) / 19)
    e = (11 * c - d + 4) Mod 29
    f = Int(b / 4)
    g = (b + f - e + 31) Mod 7
    DomingoPascua = DateSerial(intAño, 3, 31) + (25 - g - e)

ExitProcedure:
    On Error GoTo 0
    Exit Function
ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ExitProcedure
End Function