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