Como juntar la fecha de unos edits en una sola

[[Delphius]]

Hola,
Ecfisa, ya existe una función que determina si un año es bisiesto

Saludos,

[rufo]

Ok amigos gracias por darme ejemplos los probare y les dire cual fue mi resultado.

[ecfisa]

Empezado por Delphius

Hola,
Ecfisa, ya existe una función que determina si un año es bisiesto

Saludos,

Hola.

No conocía la función, gracias por el dato

Saludos.

[ecfisa]

Hola.

Para aportar mas datos de la función IsLeapYear (que no conocía), esta es la implementación que tiene en SysUtils :

Código Delphi [-]
function IsLeapYear(Year: Word): Boolean;
begin
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

Saludos.

[Casimiro Noteví]

Empezado por ecfisa

Hola.

Para aportar mas datos de la función IsLeapYear (que no conocía), esta es la implementación que tiene en SysUtils :
Código Delphi [-]function IsLeapYear(Year: Word): Boolean; begin Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end;


Saludos.

Es que se han copiado de tu código y seguro que no te pagan derechos de autor

[ecfisa]

Empezado por Casimiro Notevi

Es que se han copiado de tu código y seguro que no te pagan derechos de autor

Si, eso mismo fué lo primero que pensé ni bién lo ví. Así que ya mismo avisé a mi bufete de abogados para que se encargen del tema.

¡ Ya verás que no la sacarán barata !

Saludos.