Programación General > Delphi

 Dia De La Semana

<< < (3/3)

salvica:
Sobre lo de "bisiesto" os falta lo siguiente:

- Si año no es divisible por 4, NUNCA es bisiesto. (1991)

- Si año es divisible por 4, puede ser bisiesto, o no serlo  :whistling: , para ello debe cumplir:
- Si año no es divisible por 100, SIEMPRE es bisiesto (2004)
- Si año es divisible por 100, pero no es divisible por 400 NUNCA es bisiesto (3000)
- Si año es divisible por 100, y tambien es divisible por 400 SIEMPRE es bisiesto (2000)

--- Código: Text --- function bisiesto( year:integer ):boolean;begin  if( year mod 4&#60;&#62;0 ) then    { no es divisible por 4, luego no es bisiesto }       Result := false;  else if( year mod 100&#60;&#62;0 ) then          { no es divisible por 100, luego si es bisiesto }             Result := true;         else if( year mod 400=0 ) then                 { es divisible por 100 y por 400, luego si es bisiesto }                    Result := true                else                 { en cualquier otro caso no es bisiesto }                    Result := falseend;  Saludos
salvica

Navegación

[0] Índice de Mensajes

[*] Página Anterior