Saber si un año es bisiesto

[JM75]

Hola a todos. En la aplicación que estoy desarrollando necesito saber si un año es bisiesto o no según la fecha que se introduzca. ¿Hay alguna forma de calcularlo?

Gracias.

[[Bicho]]

Hola,

aquí tienes una manera sencilla:

Código Delphi [-]
Function EsBisiesto(Anyo: string) : Boolean;
var FecAux : tDateTime;
begin
     try
        FecAux := StrToDate('29/02/'+Anyo);
        Result := True;
     except
        Result := False;
     end;
end;

Espero te sirva.

Saludos

[JM75]

Hola Bicho,
la función que me has pasado funciona. Aunque si la fecha no existe te da un mensaje de error y después continua bien. ¿Hay alguna forma de que no salte el mensaje de error?
Gracias

[[Bicho]]

Hola,

¿has copiado el try.. except? Si no es así ponlo para capturar el error y evitar que te salga.
Si lo has puesto y aún así te salta un error (te lo debe estar dando si lo ejecutas desde Delphi, ¿no?) debes desactivar los errores del debuger:
Menú Tools => Debugger Options => Pestaña Language Exceptions => Desmarcar: Stop On Delphi Exceptions.

Saludos

[JM75]

Al desactivar la opción que has dicho ya no sale más.

Gracias por todo.

[DarKraZY]

Creo que esta función es todavía más sencilla, te la brinda la unidad de Delphi SysUtils:

Código Delphi [-]
function IsLeapYear(Year: Word): Boolean;

Saludos!!!

[cmpimentel]

hola....


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

Empezado por JM75

Hola a todos. En la aplicación que estoy desarrollando necesito saber si un año es bisiesto o no según la fecha que se introduzca. ¿Hay alguna forma de calcularlo?

Gracias.

[cmpimentel]

[quote=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

[roman]

Empezado por cmpimentel

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

¡Eso! ¡Abajo los foros!

// Saludos

[[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]]

[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.

[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.