CALENDARIO (De 1900 a 9999)

[Fleming]

Fantástico, Pegones!

Por mi parte te corono Rey del Calendario.

Ya tenemos los aficionados al Calendario un documento estupendo para entretenernos.

Nota: Lo de "cerrado" fué error mío. Olvidé que era un aporte y no una consulta.

Gracias y un cordial saludo

[Gerson Pineda]

Sin duda y como menciona fleming, Pedro te has convertido en el calendarman del foro jeje

Saludos maestros!

[pegones1]

Gracias Fleming, jorgetchake, Gerson y a los foreros que se bajan mis calendarios.

Con vuestras sugerencias y aportes voy mejorando mis calendarios.

Deciros que hasta ahora he publicado en mi blog 15 artículos sobre distintas maneras de hacer calendarios que se pueden consultar en español:

http://pedrowave.blogspot.com/search/label/calendario

Y en inglés (aún no he traducido el último post):

http://pedrowave.blogspot.com/search/label/calendar

Todos los comentarios son bien recibidos y los intentaré contestar ASAP.

[Gerson Pineda]

Pedro decirte que siempre sigo tu blog amigo!

Saludos

[Invitado jorgetchake]

Estimado Pegones

Es realmente fantástico lo que has hecho con tu calendario. Te felicito. Como dice el amigo Gerson deberías recibir el título de CalendarMan.

Sabes,… no logro entender porqué has cambiado de lógica para establecer los nombres de los meses y los días,… al menos para mi nivel era más comprensible el método que tenías en la versión anterior,…

Anterior versión

=NOMPROPIO(TEXTO(A3;"mmmm"))[/CODE]

Nueva versión

[CODE]=SI(NOMPROPIO(TEXTO(A3;"mmmm"))="Mmmm";A3;NOMPROPIO(TEXTO(A3;"mmmm")))[/CODE]

en ésta comparas con “Mmmm” ¿????, y algo similar con los días.

Otra es el modo de establecer el primer día de cada mes,…

Anterior versión

[CODE]=SI(DIASEM($A3)=2;$A3;"")[/CODE]

Nueva versión

[CODE]=A3+1-DIASEM(A3;SI($A$2=".";1;2))[/CODE]

Creo que tu afán por lograr toda la flexibilidad que has consdiderado,… los idiomas y si el primer día de semana es lunes o domingo, te obligó ha hacer todo lo que no entiendo.

Amigo ,… te felicito,… y espero que tu esfuerzo sea bien aprovechado por la comunidad.

Cordiales saludos.

[pegones1]

jorgetchake da gusto tener lectores como tú que se interesan por los entresijos de las fórmulas.

Has entendido perfectamente que se han complicado un poco para conseguir cambiar de idioma y mostrar el primer día de la semana en lunes o domingo.

Con los nombres de los meses y los días, la condición es que para idiomas como el ruso, etc., el resultado es "Mmmm" o "Ddd", por lo que, en ese caso, se muestra la fecha transformada por el formato propio de la celda "mmmm" o "ddd", respectivamente, pero no por NOMPROPIO(TEXTO(A3;"mmmm")) o por NOMPROPIO(TEXTO(C4;"ddd"))

Para obtener el primer día de la semana hace falta que la fórmula de la celda auxiliar A1:

=IZQUIERDA(DERECHA((B2+SI(ES.PAR(B2);1;0))/2;2);1)[/CODE]

- sea una coma (,) para comenzar en lunes.

- sea un punto (.) para comenzar en domingo.

Se recortan los dos últimos caracteres y el primero del resultado después de evaluar la expresión [b](B2+SI(ES.PAR(B2);1;0))/2[/b], que añade un uno al año si es par, para obtener siempre un número decimal.

Por ejemplo si B2=2011, con la Configuración regional y de idioma de Windows en español se obtiene 1005,5 y en inglés 1005.5

Como dije, [b]este minicalendario se basa en una única fórmula en C3 para saber cuál es el primer día del mes[/b] que es lunes (español) o domingo (inglés):

[CODE]=A3+1-DIASEM(A3;SI($A$2=".";1;2))[/CODE]

Se puede simplificar en español (siempre que se use la coma para los números decimales) así:

[CODE]=A3+1-DIASEM(A3;2)[/CODE]

que emplea el tipo 2 de [b]DIASEM(núm_de_serie;tipo)[/b] para devolver números del 1 (lunes) al 7 (domingo).

Los textos literales también están traducidos, por ejemplo en AI40:

[CODE]=SI($A$2=",";"Domingo de Pascua";"Easter Sunday")[/CODE]

Estoy acostumbrado a tratar con clientes internacionales y es mejor prever las contingencias que genera la Torre de Babel global. Puedes ver de lo que hablo en este blog que dejé de publicar hace unos meses.

http://portalingles.blogspot.com/p/translators.html

[b][i]Lo más gratificante es seguir recibiendo comentarios de los lectores actuales de artículos que escribí hace mucho tiempo en los blogs y en los foros.[/i][/b]

[Fleming]

Hola compañeros del Foro

Este mensaje es sólo para avisar que sustituí el archivo del post 1 por otro mejorado.

Saludos

[Gerson Pineda]

Fleming una de las cosas por las cuales continuamos por aqui es por compañeros como tu (y por otros mas), tu proactividad en el foro es admirable, gracias por querer tanto este foro amigo

Saludos a todos

[pegones1]

Hola compañeros del Foro

Adjunto un Calendario para cualquier Año y Mes, válido desde 1900 hasta 9999.

Fleming, veo que te has atrevido a incluir el cálculo automático de la Semana Santa que por mi parte incluyo en la mayoría de mis calendarios.

La fórmula que propones es válida desde 1900 a 2203, pero es incorrecta para el año 2079 y para la mayoría de los años posteriores a 2203, como el resto de fórmulas conocidas hasta la fecha.

El cálculo de los algoritmos es importante si queremos dar resultados válidos en un rango específico y, hasta ahora que yo sepa, no hay ningún algoritmo VBA que calcule el Jueves y Viernes Santo a partir del año 4099 y, si lo hubiera, me gustaría saberlo porque llevo un tiempo indagando.

Hace unos meses preparé un fichero con los mejores algoritmos (fórmulas y macros) conocidos para obtener el Domingo de Pascua (Easter Sunday) y he incluido la fórmula de tu calendario para compararla con el resto de algoritmos.

P.D.: ¿Me puedes decir dónde has obtenido la fórmula para incluir al autor original?

DomingoPascua.rar

[Fleming]

Hola Pedro.

En Jrgc.es aparece la fórmula =DOLLAR((DAY(MINUTE(A1/38)/2+55)&".4."&A1)/7,)*7-6 que parecer ser fué la ganadora de un concurso para conseguir la fórmula más corta que obtuviera la fecha del Domingo de Pascua. Indica que la fórmula sirve de 1900 hasta 2078.

A continuación Jrgc cita la fórmula: =MULTIPLO.INFERIOR(DIA(MINUTO(A1/38)/2+56)&"-5-"&A1;7)-34 que es la que yo utilcé, en razón a que dice literalmente:

"Esta otra, más larga, funciona desde el año 1900 hasta 2368"

Así que nada, Pedro, si hubiera dificultad para saber a priori si es cierto, esperemos al año 2368 y saldremos de dudas. ¡ JA !

Saludos

[pegones1]

Gracias Fleming, conozco de sobras la gran página que indicas pero no estoy de acuerdo con lo que dice literalmente en:

www.jrgc.es FÓRMULAS VARIAS

Averiguar la fecha del domingo de Pascua de un año (entre 1900 y 2078)

Como ves por el título de jrgc llega con seguridad al año 2078

En el fichero que adjunté en el post #34, la columna I contiene esa fórmula y no llega a calcular el Domingo de Pascua hasta el 2368 sino hasta el 2203, fallando en el año 2079 como una excepción.

Los mejores algoritmos son de J. M. Oudin, Greg Mallen & Ronald W. Mallen que lo calculan con exactitud hasta el año 4099 y están en las columnas B y C del adjunto.

El reto es pasar esas macros EasterUSNO(A1) y EasterDate(1;1;A1) a fórmulas de Excel.

¿Fleming, lo intentas?

DomingoPascuaPW1.rar

[Fleming]

Pues no, Pedro, yo no lo intento.

Pero te animo a que tú lo hagas.

Saludos

[pegones1]

Ya lo intenté Fleming y me salió una megafórmula que sólo la probé en Excel 2010.

Está generada a partir del algoritmo de Ronald W. Mallen y que publiqué en mi blog hace 5 meses:

Cómputos que hacen la "Pascua"

No le he dedicado tiempo a simplificarla pero alguien lo hará antes del 2204 para cuando no sirvan fórmulas como:

=TRUNCAR(FECHA(A1;7;-CODIGO(MED("NYdQ\JT_LWbOZeR]KU`";RESIDUO(A1;19)+1;1)))/7)*7+8[/CODE]

[CODE]=MONEDA(("4/"&A1)/7+RESIDUO(19*RESIDUO(A1;19)-7;30)*14%*7-6[/CODE]

[b]EDITADO: [/b]En Excel 2010 sustituir RESIDUO por RESTO.

[b][i]Al o a la que sea capaz de explicar esta última fórmula ¡le subo la nota en el examen de evaluación de Excel![/i][/b]

[Fleming]

Muy bueno, Pedro

Yo acepto tu ofrecimiento respecto a la fórmula =MONEDA((..., y sus variantes, pero me temo que antes de conseguirlo ya me habré tragado de golpe todas las estrellas (no recuerdo quién dijo esto).

El caso es que hasta el mismo JLD (J. L. Dunkelman) dice que no le preguntemos qué significa.

Bueno, y si tú opinas lo mismo..., pues estamos apañados.

Te animo a que lo investigues. Sois vosotros, los analistas avanzados y apasionados por Excel, los que podéis desencriptar la dichosa fórmula y que pierda su esoterismo.

A lo mejor luego resulta que "estaba chupada".

Saludos

[pegones1]

Hola Pedro.

A continuación Jrgc cita la fórmula: =MULTIPLO.INFERIOR(DIA(MINUTO(A1/38)/2+56)&"-5-"&A1;7)-34 que es la que yo utilcé, en razón a que dice literalmente:

"Esta otra, más larga, funciona desde el año 1900 hasta 2368"

Así que nada, Pedro, si hubiera dificultad para saber a priori si es cierto, esperemos al año 2368 y saldremos de dudas. ¡ JA !

Saludos

Como detrás de la página JRGC.es hay una persona muy razonable, me ha contestado con estas palabras cuando le he comentado mis discrepancias:

Gracias por tu amable corrección sobre el rango de fechas en las que funciona esta fórmula y la excepción del año 2079. Ya he modificado la página y he puesto un enlace a tu interesantísimo blog, para que quienes deseen profundizar en el tema del cálculo del domingo de Pascua en Excel puedan leerlo.

www.jrgc.es - Averiguar la fecha del domingo de Pascua de un año (entre 1900 y 2078)

Lo que no ha hecho ha sido cambiar el título porque la fórmula con monedas funciona hasta el 2203 y no falla el año 2079.

[animal]

Muy buen trabajo, gracias, es justo lo que estaba buscando. Tengo una duda como puedo cambiar la formula para que los dias de la semana sean L, M, X, J, .............. en vez de Lun, Mar,Mier......................

Gracias.

[pegones1]

Hola animal, prueba con:

=SI(IZQUIERDA(TEXTO(A1;"ddd");2)="mi";"X";IZQUIERDA(NOMPROPIO(TEXTO(A1;"ddd"))))[/CODE]

siendo la celda A1 una fecha de Excel.

Se complica un poco al comenzar con "m" el martes (M) y el miércoles (X).

[animal]

Gracias, la probaré ahora mismo.

Lo he probado y funciona bien, no se complica cuando empieza por martes o miercoles, por lo menos en la prueba sobre el calendario que nos ocupa.

Gracias.

[Fleming]

Hola Animak

Otra solución es la que te adjunto, en la que incluyo una fila auxiliar (AR1:BV1)

Saludos para ti y para el maestro Pegones.

CALENDARIObis.zip