Autor Tema: Semana Santa y Pascua  (Leído 4015 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 220
Semana Santa y Pascua
« en: Febrero 01, 2020, 12:58:14 pm »
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]
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