Calcular cuando comienza la semana santa
Excel
Actualizado el 21 de Diciembre del 2020 por Fernandoml (3 códigos) (Publicado el 28 de Febrero del 2020)
4.881 visualizaciones desde el 28 de Febrero del 2020
El siguiente código calcula cuando comienza la semana santa a través tanto de fórmula como de código vba.
Un Saludo para todos
FernandoML
1
2
3
4
5
6
7
8
9
10
'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
Un Saludo para todos
FernandoML
241 visualizaciones durante los últimos 90 días