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;