Dicas - Verificando se o ano � bisexto

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;