Función "Semana santa"

[Antoni]

Hola:

Os dejo esta función, gentileza de FernandoML, para averiguar la fecha del jueves santo de cualquier año.

He dado por supuesto su funcionamiento.

Function SemanaSanta (Año As Integer) As Date

SemanaSanta = CDate(Evaluate("DOLLAR((""4/""&" & Año & ")/7+MOD(19*MOD(" & Año & ",19)-7,30)*14%,)*7-6-3"))

End Function[/CODE]

Saludos a todos

[Fleming]

Pero sin olvidarnos de una mágica fórmula que conduce al mismo resultado:

=MONEDA(("4/"&A1)/7+RESIDUO(19*RESIDUO(A1;19)-7;30)*14%*7-9

Donde A1 es el año elegido.

Un abrazo

P.D. Ya salió un emoticón "jod.. la marrana". En su lugar debe figurar un punto y coma y un paréntesis de cierre

[franses]

Si le restamos 44 a la fórmula obtendremos el Martes de carnaval del año correspondiente.

=MONEDA(("4/"&A1)/7+RESIDUO(19*RESIDUO(A1;19)-7;30)*14%*7-9-44

Supongo que funcionará también en la función.

Un saludo.

[railar]

Hola Macro Antonio, Fleming

Un placer saludarlos,

Esta otra formula que desconozco el autor también es muy buena para calcularla

=REDONDEAR(FECHA(A1;4;RESIDUO(234-11*RESIDUO(A1;19);30))/7;)*7-9[/CODE]

Saludos nuevamente

Pd franses, un placer me imagino que es el Carnaval de la Arenosa.

Recuerda que el carnaval comienza 4 días antes del Miércoles de Ceniza y la fecha aquí calculada es el Jueves Santo, luego tienes que incrementar los días de 44 a 56

[Armando Montes]

Hola, algunas de las formulas en mi arcon:

Fechas2Calculos.xls

[Fleming]

Bueno, pues ya que nuestro maestro y amigo Macro Antonio nos abrió la puerta a la Semana Santa, continuemos "debotamente" con el tema.

Saludos cordiales

SEMANA_SANTA.zip

[franses]

Hola ,

Me he basado en esta página para conocer las fechas de martes de carnaval: Fechas de Carnaval y a mi me sigue dando que el número a restar es 44.

He visto el archivo de Armando y también arroja una fecha distinta. Una fecha tres resultados diferentes, vamos a estar de carnaval todo el año

pd.:Fleming no me había fijado en tu archivo, ahora si que queda claro,

Un Saludo a todos,

Martes de carnaval.xls

[railar]

Hola a todos,

franses, es que le estas restando -9-44, no estas equivocado, pero yo me refería al Sábado inicio de Carnaval, ahora para el martes de Joselito lo que tendrías que restar son 53

=-9-44[/CODE]

luego en el caso de algunas de las formula presentadas quedarían así:

[CODE]=REDONDEAR(FECHA(A1;4;RESIDUO(234-11*RESIDUO(A1;19);30))/7;)*7-53[/CODE]

Otra

[CODE]=MONEDA(("4/"&$A$1)/7+RESIDUO(19*RESIDUO($A$1;19)-7;30)*14%*7-53[/CODE]

Saludos

[bigpetroman]

creo que las formulas que usan la funcion MONEDA funcionan solamente cuando la moneda del sistema es el $ (yo probe con mi moneda local y no funcionan), gracias a todos, excelentes formulas

[Fleming]

Hola Bigpetroman

Yo no tengo el $, sino el Euro (€) y funciona.

Un saludo

[bigpetroman]

ok, si me imagino que con $ y el Euro (€) deben funcionar, yo intente con la moneda local (Venezuela) Bs.F. y no funcionan; gracias nuevamente