'
Formula que calcula el jueves santo de cualquier año hasta el 9999. Programado para insertar el año 'en la celda F4.
'***************************************************************************************************************
=MONEDA(("4/"&F4)/7+RESIDUO(19*RESIDUO(F4;19)-7;30)*14%;)*7-9
'El siguiente código debemos insertarlo en un módulo para usar la funcion semana santa y que nos 'muestre la fecha del jueves santo desde cualquier celda.
'***************************************************************************************************************
Public Function SemanaSanta(Año As Integer) As Date
SemanaSanta = Evaluate("DOLLAR((""4/""&" & Año & ")/7+MOD(19*MOD(" & Año & ",19)-7,30)*14%,)*7-9")
End Function