Cita:
|
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.