Dicas - Verificando se o ano é bisexto

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como verificar se o ano é bisexto.

Verificando se o ano é bisexto

 

function AnoBis(Data: TDateTime): Boolean;

{Verifica se um ano é bisexto, retornando True em caso positivo}

var

  Dia,Mes,Ano : Word;

begin

DecodeDate(Data,Ano,Mes,Dia);

if Ano mod 4 <> 0 then

   AnoBis := False

else

   if Ano mod 100 <> 0 then

      AnoBis := True

   else

      if Ano mod 400 <> 0 then

         AnoBis := False

      else

         AnoBis := True;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?