Como calcular a data da Páscoa no Excel?
Como é do conhecimento geral, a Páscoa ocorre sempre no primeiro domingo após a primeira lua cheia eclesiástica em ou após 21 de março, pelo que a sua data varia de ano para ano — tal como ilustrado na seguinte captura de ecrã. Se pretende obter a data exata da Páscoa num determinado ano, este artigo será útil para si.
Calcular a data da Páscoa de um determinado ano com fórmula
Calcular a data da Páscoa de um determinado ano com uma Função Definida pelo Utilizador
Calcular a data da Páscoa de um determinado ano com fórmula
Para obter a data da Páscoa de um determinado ano, utilize a seguinte fórmula. Siga estes passos:
1. Introduza esta fórmula: =FLOOR(«5/»&DAY(MINUTE(A2/38)/2+56)&«/»&A2,7)-34 numa célula vazia junto ao ano indicado — por exemplo, na célula B2 —, conforme ilustrado na captura de ecrã:
2. Em seguida, arraste a alça de preenchimento para as células onde pretende calcular a data da Páscoa do ano indicado — surgirão números de cinco dígitos nessas células, tal como mostrado na captura de ecrã:
3. De seguida, formate esses números como Formato de data:
(1.) Selecione os números de cinco dígitos e clique com o botão direito do rato para escolher Definir formato de célulano menu de contexto;
(2.) Na caixa de diálogo Definir formato de célulaque surge, clique no separador Número, selecione Datano painel Categoriae, de seguida, escolha um formato Formato de data à sua escolha na lista à direita, conforme ilustrado na captura de ecrã:
4. Assim, os números foram formatados no Formato de data pretendido, permitindo-lhe obter a data da Páscoa do ano indicado, conforme mostrado na captura de ecrã:
Dicas:Para formatar os números para o formato Formato de data que normalmente utiliza, também pode utilizar a utilidade Aplicar Formato de Data do Kutools para Excel, como mostrado na seguinte captura de ecrã:
|
Calcular a data da Páscoa de um determinado ano com uma Função Definida pelo Utilizador
A seguinte Função Definida pelo Utilizador também o pode ajudar a calcular a data da Páscoa de um ano específico.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Calcular a data da Páscoa de um determinado ano:
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 Function3. Em seguida, guarde e feche este código, regresse à folha de cálculo e introduza a seguinte fórmula: =easterdate(A2) numa célula vazia ao lado dos seus dados correspondentes. Depois, arraste a alça de preenchimento para as células às quais pretende aplicar esta fórmula e obterá números de cinco dígitos, conforme ilustrado na captura de ecrã:
5. De seguida, converta os números para o formato de data pretendido.Consulte o passo 3 do método anterior para os formatar como datas.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos