Fórmula para calcular los años bisiestos

[pegones1]

Para calcular los años bisiestos uso esta fórmula que me dice que los años de 366 días puedo ganar más dinero que los que tienen un día menos:

=REDONDEAR(MONEDA("4/"&A1)-MONEDA("4/"&A1-1);0)=366[/CODE]

En A1 el número con el año a comprobar si es bisiesto en que la fórmula anterior dará un valor VERDADERO.

[Fleming]

Hola Pegones1

Me gustaría que te prodigases más por estos lares.

Me quedo con tu fórmula y la incorporo a mi colección con el número (V) del archivo adjunto.

Un saludo

AÑOS_BISIESTOS.zip

[sailepaty]

Muy buena Pedro, pero falla en 1900.

Saludos

[Fleming]

Así es, Elías. Falla en los anteriores a 1901

La que parece más segura, aunque un poco larga, es:

=SI(O(RESIDUO(B4;400)=0;Y(RESIDUO(B4;4)=0;RESIDUO(B4;100)<>0));"Bisiesto";"No bisiesto")

Un saludos

[sailepaty]

Creo que se puede recortar un poco.

 

=SI((RESIDUO(B4;400)=0)+(RESIDUO(B4;4)=0)*(RESIDUO(B4;100)<>0);"";"No ")&"Bisiesto"

 [/CODE]

Saludos

[Antoni]

Hola friends:

Yo a lo mío,......jejeje

Public Function ESBISIESTO(Año As Range) As Boolean   


   ESBISIESTO = False


   If Año.Cells.Count > 1 Then

      Beep

      Exit Function

   End If


   If IsNumeric(Año.Value) = False Then

      Beep

      Exit Function

   End If


   r100 = Año.Value Mod 100

   r1000 = Año.Value Mod 1000

   r4 = Año.Value Mod 4


   If r4 = 0 And (r100 > 0 Or r1000 = 0) Then

      ESBISIESTO = True

   End If


End Function



[/CODE]

Fórmula: (Devuelve Verdadero/Falso)

[CODE][B]=[COLOR=#b22222]ESBISIESTO[/COLOR]([COLOR=#0000ff][I]A1[/I][/COLOR])[/B][/CODE]

Saludos

[pegones1]

Macro, ¡tenías que hacer de las tuyas!. Mira que el título dice "Fórmula ..." :cheerful:

sailepaty, falla en en años anteriores a 1900 y posteriores a 9999, pero avisa al generar #¡VALOR!

Por cierto, ¡"igualico" que Micro$oft Excel con las fechas! :greedy_dollars:

Sus límites son:

[TABLE=class: collapse]

[TR=class: trbgeven, bgcolor: #F3F3F3]

[TD]Primera fecha permitida en un cálculo[/TD]

[TD]1 de enero de 1900 (1 de enero de 1904, si se utiliza la fecha del sistema)[/TD]

[/TR]

[TR=class: trbgodd]

[TD]Última fecha permitida en un cálculo[/TD]

[TD]31 de diciembre de 9999[/TD]

[/TR]

[/TABLE]

[DBOX]Especificaciones y límites de Excel - Excel - Office.com[/DBOX]

Fleming, tu fórmula la he visto antes!!! (similar a la versión MacroAntoniana) :moon:

[DBOX]Method to determine whether a year is a leap year[/DBOX]

Tengo que recordar aquí (porque me viene muy a mano) el bug del año 1900, considerado erróneamente bisiesto por Excel:

[DBOX]Excel 2000 incorrectly assumes that the year 1900 is a leap year[/DBOX]

Gracias por vuestros comentarios y si sois buenos, al menos un día de este año bisiesto (que no es mucho pedir), os dejaré mi colección de fórmulas para calcular años bisiestos. :suspicion:

[sailepaty]

sailepaty, falla en en años anteriores a 1900 y posteriores a 9999, pero avisa al generar #¡VALOR!

Por cierto, ¡"igualico" que Micro$oft Excel con las fechas!

Sus límites son:

[TABLE=class: collapse]

[TR=class: trbgeven, bgcolor: #f3f3f3]

[TD]Primera fecha permitida en un cálculo

[/TD]

[TD]1 de enero de 1900 (1 de enero de 1904, si se utiliza la fecha del sistema)

[/TD]

[/TR]

[TR=class: trbgodd]

[TD]Última fecha permitida en un cálculo

[/TD]

[TD]31 de diciembre de 9999

[/TD]

[/TR]

[/TABLE]

1.-Me parece que el mes de febrero de 1900 esta dendro de esos limites, no?

2.-Quiere significar que por que Excel no calcula bien es correcto que tu formula no la haga?

Os dejaré mi colección de fórmulas para calcular años bisiestos.

Se te agradecerá enormemente, siempre listo para aprender algo nuevo. Ojala y sean mas originales que las que posteo Chandoo!!!

Saludos

[sailepaty]

Otra opción que me encontré en el baúl, pero desafortunadamente no recuerdo de donde la obtuve.

=SI(RESIDUO(A1;100);RESIDUO(A1;4);RESIDUO(A1;400))=0

Saludos

[Antoni]

Hola de nuevo:

Esta función es tan pequeña, que parece una fórmula:

Public Function ESBISIESTO(Año As Range) As Boolean

[B]ESBISIESTO = Day((DateSerial(Año, 3, 1) - 1)) = 29[/B]

End Function

[/CODE]

Y aporta otro método distinto al que hemos empleado hasta ahora:

Preguntar si el día anterior al 1 de Marzo es 29. (*)

Besitos para todos.

[size=1]* (Sobre una idea de Adrian en TodoExcel)[/size]

[pegones1]

Macro, ¿por qué no preguntas directamente si el 29 de febrero es un día del calendario?

Esta fórmula es la más corta que conozco:

Public Function EsAñoBisiesto(Año As Range) As Boolean

      EsAñoBisiesto = IsDate("29/2/" & Año)

End Function[/CODE]

Esta función convertida en fórmula para calendarios en español y en inglés:

[CODE]=NO(ESERROR(FECHANUMERO("29/02/"&A1)))
=NOT(ISERROR(DATEVALUE("2/29/"&A1)))[/CODE]

Es un honor para mí compartir este foro con macronianos como tú.

[sailepaty]

Siguiendo la logica de Pedro aqui va otra,

=AÑO(("1/1/"&A1)+365+(A1=1900))=A1

Saludos

[pegones1]

sailepaty, está muy bien tener en cuenta en tu fórmula que el año 1900 no fue bisiesto.

[COLOR=#333333]=AÑO(("1/1/"&A1)+365+(A1=1900))=A1[/COLOR][/CODE]

Vamos a darle una vuelta de tuerca más a las fórmulas para calcular los años bisiestos. :sneakiness:

Para cualquier fórmula profesional se tiene que tener en cuenta el rango correcto de entradas para obtener la salida adecuada y esta vez ¡con la Iglesia hemos "topao"! :star:

[color=#000000][font=sans-serif]El 4 de octubre de 1582 fue el último día del calendario juliano y el 15 de octubre de 1582 fue el primer día del calendario gregoriano y ese año tuvo 10 días menos, siendo el primer año bisiesto de la historia, establecido por [/font][/color][color=#000000][font=sans-serif]el Papa Gregorio XIII en su bula [/font][/color][i]Inter gravisimas.

[DBOX]Año bisiesto - Wikipedia, la enciclopedia libre[/i][/DBOX]

Por lo tanto, cualquier año anterior a 1582 no puede ser bisiesto y habrá que tenerlo en cuenta en las fórmulas.

[sailepaty]

Definitivamente no dejemos que Don Gregorio nos arruine el calculo.

=(SI(RESIDUO(A1;100);RESIDUO(A1;4);RESIDUO(A1;400))+(A1<=1582))=0


[COLOR=#333333]=AÑO(("1/1/"&A1)+365+(A1=1900)+(A1<=1582))=A1[/COLOR]

[/CODE]

[color=#333333]Saludos[/color]

[pegones1]

sailepaty, como comentaste que lees el foro de Chandoo, estoy posteando algunas de mis fórmulas en inglés.

[DBOX]Check if an year is leap year, using Excel Formulas | Chandoo.org - Learn Microsoft Excel Online[/DBOX]

En el foro de Chandoo llevamos publicadas 25 fórmulas para calcular los años bisiestos.

Es un honor que Rick Rothstein (MVP - Excel) haya replicado a alguna de mis sugerencias, siendo que escribe en uno de los blogs más famosos de Excel que os invito a leer si aún no lo conocéis:

[DBOX]Contextures Blog[/DBOX]

[sailepaty]

Pedro,

Felicidades por el honor que te causa la replica de Rick Rothstein. Sin embargo me parece que el blog al que haces referencia pertenece a Debra Dalgleish y Rick replica a los post que ella efectúa. Sin embargo y sin estar muy seguro creo haber leído algunos posts que el inicia con la autorización de Debra.

Y para no dejar de replicar y tal y como diría Rick. Similar a la formula de Pedro pero con una función menos.

[SIZE=2][FONT=arial] =ISNUMBER(1*(A1*(A1>1900)&"-02-29"))[/FONT][/SIZE]

[SIZE=2][FONT=arial] 

=ESNUMERO(1*(A1*(A1>1900)&"-02-29"))

[/FONT][/SIZE][/CODE]

[size=2][font=arial]

Saludos[/font][/size]

[pegones1]

sailepaty, gracias por la aclaración. Es lo que me pasa por leer demasiados blogs de Excel. Aunque sí, Rick escribe a menudo en el blog de Debra (autora de Contextures).

Ahora si que te ha quedado redonda. ¡Un diez maestro!

[jrgces]

Las más cortas que he conseguido yo nunca han sido:

=DIA(1*("1/3/"&A1)-1)=29[/CODE]

que falla para 1900, y:

[CODE]=DIA(1*("1/3/"&A1)-1+(A1=1900))=29[/CODE]

que no falla para 1900.

Saludos.