|
|
 |
 |
|
Paypal | |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#15
15-01-2004
|
||||
|
||||
|
Mejor puedes utilizar la función IsLeapYear, que viene incorporada en la unidad SysUtils de Delphi.
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsleapYear(2004) then
ShowMessage('Es bisiesto.');
end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
 |
|
Modo Hilado