Código de Excel - Calcular cuando comienza la semana santa

Imágen de perfil
Val: 60
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Calcular cuando comienza la semana santagráfica de visualizaciones


Excel

Actualizado el 21 de Diciembre del 2020 por Fernandoml (3 códigos) (Publicado el 28 de Febrero del 2020)
1.393 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.

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

1.0

Actualizado el 22 de Diciembre del 2020 (Publicado el 28 de Febrero del 2020)gráfica de visualizaciones de la versión: 1.0
1.394 visualizaciones desde el 28 de Febrero del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
FORMULA QUE CALCULA EL JUEVES SANTO DEL AÑO QUE SELECCIONEMOS HASTA EL 9999
***********************************************************************************************************
    =MONEDA(("4/"&F4)/7+RESIDUO(19*RESIDUO(F4;19)-7;30)*14%;)*7-9
 
   En la celda F4 es donde debemos insertar el año para que nos muestre el jueves santo
 
 
FUNCION PARA AÑADIR A UN MODULO QUE PODREMOS USAR EN LA BARRA DE FORMULAS PARA QUE CALCULE EL JUEVES SANTO
***************************************************************************************************************
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



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5979