Como calcular a data da Páscoa no Excel?

Como todos nós sabemos, o feriado de Páscoa é sempre o primeiro domingo após a primeira lua cheia eclesiástica que ocorre em ou após 21 de março, então a data da Páscoa de cada ano pode ser diferente, como mostra a captura de tela a seguir. Para obter a data específica da Páscoa de um determinado ano, este artigo pode ajudá-lo.

Calcular a data da Páscoa de um ano específico com fórmula

Calcular a data da Páscoa de um ano específico com Função Definida pelo Usuário

Calcular a data da Páscoa de um ano específico com fórmula

Para obter a data da Páscoa de um ano específico, a seguinte fórmula pode ajudá-lo, por favor, siga os passos abaixo:

1. Insira esta fórmula: =ARREDONDAR.PARA.BAIXO("5/"&DIA(MINUTO(A2/38)/2+56)&"/"&A2;7)-34 em uma célula em branco ao lado do ano fornecido, B2, por exemplo, veja a captura de tela:

2. Em seguida, arraste a alça de preenchimento para baixo até as células onde você deseja calcular a data da Páscoa da data fornecida, e números de cinco dígitos serão exibidos nas células, veja a captura de tela:

3. E então você deve formatar os números como formato de data:

(1.) Selecione os números de cinco dígitos e clique com o botão direito para escolher Formatar Células no menu de contexto;

(2.) Na caixa de diálogo Formatar Células que aparece, clique na aba Número, e selecione Data no painel Categoria, depois escolha um formato de data que você goste na lista à direita, veja a captura de tela:

4. E então, os números foram formatados no formato de data que você precisa, e você pode obter a data da Páscoa do ano fornecido, veja a captura de tela:

Calcular a data da Páscoa de um ano específico com Função Definida pelo Usuário

A seguinte Função Definida pelo Usuário também pode ajudá-lo a calcular a data da Páscoa de um ano específico.

1. Mantenha pressionadas as teclas ALT + F11, depois abre-se a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Código VBA: Calcular a data da Páscoa de um ano específico:

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. Depois salve e feche este código, volte para a planilha e insira esta fórmula: =easterdate(A2) em uma célula em branco ao lado dos seus dados correspondentes, e então arraste a alça de preenchimento para baixo até as células onde você deseja aplicar esta fórmula, você obterá alguns números de cinco dígitos, veja a captura de tela:

5. E então você deve alterar os números para o formato de data que você precisa. Por favor, veja a etapa 3 do método acima para formatá-los como data.