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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/12/2015 3:55 pm