Palabras clave: calcular, obtener, averiguar, saber, semana santa, pascua, domingo
Autor: GalileoGali
Extraído de: EXCELGALI (http://excelgali.foroactivo.com/t155-calcular-semana-santa-y-pascua)
Pregunta
¿Como calcular el domingo de pascua y, por extensión, la semana santa?
Buscando en la web se encuentra este link (http://excelgali.foroactivo.com/t155-calcular-semana-santa-y-pascua) con una función en Excel para calcular el domingo de pascua. La modificación de esa función sería así:
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