Cita:
Empezado por Alfredo
Por otra parte, he escuchado que "delphi se hizo con delphi"; si esto es asi, puede alguien decirme como haceder a una funcion de delphi?. Es decir, me gustaria saber como codificaron la funcion IsLeapYead(). (Esa es una de las razones por la que paso calenteras cuando pruebo codigo propuesto por los colegas en mi version de delphi)
|
Hombre, ésta es fácil, basta saber la definición de año bisiesto:
Cita:
Un año es bisiesto si es múltiplo de 4 pero no múltiplo de 100 a menos que sea múltiplo de 400
|
Lo que nos dá:
Código:
function EsBisiesto(Año: Integer): Boolean;
begin
Result :=
(Año mod 4) = 0 // es múltiplo de 4
and
(
(Año mod 100 <> 0) or // pero no de 100
(Año mod 400) = 0 // a menos que también de 400
);
end;
Claro que también puedes encontrar este código en la unidad DateUtils.
Sin embargo, la frase "Delphi está hecho con Delphi" se refiere a que el IDE (ambiente de desarrollo) de Delphi está hecho con Delphi pero hay partes del lenguaje que están programadas con C.
// Saludos