Saber si un año es bisiesto

[[Bicho]]

Empezado por cmpimentel

hola....

escribeme a mi correo es mas practico y pueda ayudarte en lo que necesites cmpimentel@imfomed.sld.cu

¿Y nosotros no estamos ayudando?
¿No es práctica esta discusión?

Saludos

[[egostar]]

Empezado por roman

¡Pues a eso me refiero! Los métodos que describen, requieren, de una u otra forma, saber si el año es o no bisiesto. Por ello, lo más práctico es, o usar IsLeapYear que usa la fórmula que comenta basti.

// Saludos

Y si a mi me gusta complicarme la vida y no quiero usar esa función de IsLeapYear.......

Bueno, aqui les dejo un pequeño código que iba a poner en el hilo de código sin utilidad.

Código Delphi [-]
function TForm1.EsBisiesto(year:integer):bool;
begin
  result := false;
  If ( (year mod 100)= 0) or
     ( (year mod 400)= 0) or
     ( (year mod 4)= 0) then
     result := true;
end;

//Con el método DecodeDate se obtiene el año y es pasado a la función
  DecodeDate(Now,Anio,Mes,Dia);
  If EsBisiesto(Anio) then
     ShowMessage('Es Bisiesto')
  else ShowMessage('NO es Bisiesto');

Saludos.

[[egostar]]

[quote=cmpimentel]

Empezado por cmpimentel

hola....


escribeme a mi correo es mas practico y pueda ayudarte en lo que necesites cmpimentel@imfomed.sld.cu soy informatico sivernetico y vivo en ciudad de la habana, cuba

Ya veo, seguro es más práctico.

[DarKraZY]

Empezado por egostar

Y si a mi me gusta complicarme la vida y no quiero usar esa función de IsLeapYear.......

¿Por qué no copiamos toda la VCL y la metemos en el form principal? :P

[[egostar]]

Empezado por DarKraZY

¿Por qué no copiamos toda la VCL y la metemos en el form principal? :P

, Hombre, que el comentario no es tan literal, no es que YO me quiera complicar la vida, pero me parecio atinado colocarla aqui ya que como lo señalé en su oportunidad, estaba destinado al hilo de código sin utilidad.

Saludos.

[roman]

Empezado por egostar

Bueno, aqui les dejo un pequeño código que iba a poner en el hilo de código sin utilidad

No te ofendas, pero este código sí que sería inútil pues marca 1900 como bisiesto, siendo que no lo fue.

Yo supongo que te refieres al código que puso basti anteriormente:

Código Delphi [-]
function bisiesto(year : word): boolean;
begin
  Result := (year mod 4 = 0) and ((year mod 100 <> 0) or (year mod 400 = 0));
end;

// Saludos

[[egostar]]

Empezado por roman

No te ofendas, pero este código sí que sería inútil pues marca 1900 como bisiesto, siendo que no lo fue.

Yo supongo que te refieres al código que puso basti anteriormente:

Código Delphi [-]function bisiesto(year : word): boolean; begin Result := (year mod 4 = 0) and ((year mod 100 <> 0) or (year mod 400 = 0)); end;


// Saludos

Y porque iba a ofenderme, si ya sabia que era inutil de procedencia.

Saludos.

[[basti]]

Acabo de ver la implementación de IsLeapYear, y es idéntica a lo que puse antes. Voy a decirle a los de Borland que no me copien más código, jeje

[JM75]

Perdonad que no haya contestado antes. Y retomando el tema de este hilo, me acaban de decir que existe la función DaysInMonth que devuelve los días del mes de la fecha que se indique. Si ponemos febrero en la fecha, nos dirá si ese año en febrero hay 28 o 29 días.


DaysInMonth(StrToDate('19/02/2007')); -> Devuelve 28


Por cierto, en mi opinión, los foros permiten que varias personas puedan aportar sus ideas y discutir sobre ellas con lo que el resultado es más de lo que espera uno.

Gracias a todos.

[quote=cmpimentel]

Empezado por cmpimentel

hola....


escribeme a mi correo es mas practico y pueda ayudarte en lo que necesites cmpimentel@imfomed.sld.cu soy informatico sivernetico y vivo en ciudad de la habana, cuba

[Neftali [Germán.Estévez]]

Empezado por cmpimentel

...escribeme a mi correo es mas practico y pueda ayudarte en lo que necesites

Pues no, no es más práctico.
La gracia de los foros es que aquí todos podemos preguntar y responder y las respuestas pueden servir después a otras personas que tienen la misma duda.

[Neftali [Germán.Estévez]]

Empezado por egostar

Y si a mi me gusta complicarme la vida y no quiero usar esa función de IsLeapYear...

Otra opción es una array con todos los años bisiestos. Para saber si es o no, basta con hacer un recorrido secuencial. La mejor optimización sería utilizar listas ordenadas o una HashList.
El único inconveniente es que tendrás que recompilar cada 4 años, pero ¡¡quien no recompila cada 3 o 4 años!!!

[[Héctor Randolph]]

Empezado por JM75

me acaban de decir que existe la función DaysInMonth que devuelve los días del mes de la fecha que se indique. Si ponemos febrero en la fecha, nos dirá si ese año en febrero hay 28 o 29 días.

Según recuerdo esa función también hace uso de IsLeapYear, lo dicho, entramos en un círculo vicioso

Saludos