Ver Mensaje Individual
  #26  
Antiguo 20-03-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
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
Responder Con Cita