Access de Xavi

Funciones => Fechas => Mensaje iniciado por: xavi en Febrero 01, 2020, 12:58:14 pm

Título: Semana Santa y Pascua
Publicado por: xavi en Febrero 01, 2020, 12:58:14 pm
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í:

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