Notifications
Clear all

CALCULAR DOMINGO DE PÁSCOA

3 Posts
3 Usuários
0 Reactions
1,602 Visualizações
(@rilust)
Posts: 0
New Member
Topic starter
 

CALCULAR DOMINGO DE PÁSCOA

=ARREDMULTB(DIA(MINUTO(B1/38)/2 + 56) & "/5/" & B1;7)-34
B1  ANO A SER CALCULADO

Gostou da dica ? por favor agradeça

 
Postado : 31/10/2015 10:28 am
(@temponi08)
Posts: 0
New Member
 

Tambem tem essa opção
MOEDA(("4/"&ANO)/7+MOD(19*MOD(ANO;19)-7;30)*14%;)*7-6

no lugar de "ANO" digite o ano desejado.

 
Postado : 13/12/2015 2:41 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Função UDF que retorna a data do domingo de Páscoa:

Coloque o código abaixo em um Módulo:

Public Function calcularPascoa(ano) 
n1 = ano Mod 19 
n2 = Int(ano / 100) 
n3 = ano Mod 100 
n4 = Int(n2 / 4) 
n5 = n2 Mod 4 
n6 = Int((n2 + 8) / 25) 
n7 = Int((n2 - n6 + 1) / 3) 
n8 = (19 * n1 + n2 - n4 - n7 + 15) Mod 30 
n9 = Int(n3 / 4) 
n10 = n3 Mod 4 
n11 = (32 + 2 * n5 + 2 * n9 - n8 - n10) Mod 7 
n12 = Int((n1 + 11 * n8 + 22 * n11) / 451) 

mes = Int((n8 + n11 - 7 * n12 + 114) / 31) 
dia = (n8 + n11 - 7 * n12 + 114) Mod 31 

calcularPascoa = DateSerial(ano, mes, (dia + 1)) 

End Function

Digite o ano, por exemplo em A1 e em qualquer célula digite a função: =calcularPascoa(A1)

Teste na Planilha:

[]s

 
Postado : 13/12/2015 3:55 pm