Palabras clave:
calcular, obtener, averiguar, saber, semana santa, pascua, domingoAutor:
GalileoGaliExtraí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í:
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