¿Cómo calcular la fecha de Pascua en Excel?

Como todos sabemos, la festividad de Pascua siempre es el primer domingo después de la primera luna llena eclesiástica que ocurre el 21 de marzo o después. Por lo tanto, la fecha de Pascua puede variar cada año, como se muestra en la siguiente captura de pantalla. Para obtener la fecha específica de Pascua de un año determinado, este artículo puede ayudarte.

Calcular la fecha de Pascua de un año dado con una fórmula

Calcular la fecha de Pascua de un año dado con una Función Definida por el Usuario

Calcular la fecha de Pascua de un año dado con una fórmula

Para obtener la fecha de Pascua de un año dado, la siguiente fórmula puede ayudarte. Por favor, sigue los siguientes pasos:

1. Introduce esta fórmula: =FLOOR("5/"&DÍA(MINUTO(A2/38)/2+56)&"/"&A2,7)-34 en una celda en blanco junto al año proporcionado, B2, por ejemplo, ver captura de pantalla:

2. Luego arrastra el controlador de relleno hacia abajo hasta las celdas donde deseas calcular la fecha de Pascua del año dado, y aparecerán números de cinco dígitos en las celdas, ver captura de pantalla:

3. Y luego deberías formatear los números como formato de fecha:

(1.) Selecciona los números de cinco dígitos, haz clic derecho y elige Formato de celdas desde el menú contextual;

(2.) En el cuadro de diálogo Formato de celdas que aparece, haz clic en la pestaña Número, y selecciona Fecha en el panel Categoría, luego elige un formato de fecha que te guste de la lista de la derecha, ver captura de pantalla:

4. Y luego, los números se habrán formateado en el formato de fecha que necesitas, y podrás obtener la fecha de Pascua del año dado, ver captura de pantalla:

Calcular la fecha de Pascua de un año dado con una Función Definida por el Usuario

La siguiente Función Definida por el Usuario también puede ayudarte a calcular la fecha de Pascua de un año específico.

1. Mantén presionadas las teclas ALT + F11, luego se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Código VBA: Calcular la fecha de Pascua de un año dado:

Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
  Dim x As Integer
  x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
  EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
      x + (x > 48) + 1) Mod 7)
End Function

3. Luego guarda y cierra este código, regresa a la hoja de trabajo e introduce esta fórmula: =easterdate(A2) en una celda en blanco junto a tus datos correspondientes, y luego arrastra el controlador de relleno hacia abajo hasta las celdas donde deseas aplicar esta fórmula, obtendrás algunos números de cinco dígitos, ver captura de pantalla:

5. Y luego deberías cambiar los números al formato de fecha que necesites. Por favor, consulta el paso 3 del método anterior para formatearlos como fecha.