fbpx

Verificando ano bisexto pelo Delphi

Verificando ano bisexto pelo Delphi

Utiliza e a função abaixo:

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;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.