Dicas Delphi – Verificando Ano Bixesto

// Verifica se um ano é bixesto, retornando True em caso positivo}

function AnoBis(Data: TDateTime): Boolean;
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;

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s