Códigos Fuente de Excel

'

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