Fórum Ano bissexto #313017
14/02/2006
0
Paulo
Curtir tópico
+ 0Post mais votado
14/02/2006
Como citado pelo colega [b:46dc4b8f4f]Rjun[/b:46dc4b8f4f]:
function AnoBi(Ano: Integer): Boolean; begin Result := (Ano mod 4 = 0) and ((Ano mod 100 <> 0) or (Ano mod 400 = 0)); end; //use assim if AnoBi(1996) then ShowMessge(´Este ano é bisexto!!!´) else ShowMessage(´Este não é um ano bisexto!´);
ou então use a função [b:46dc4b8f4f]IsLeapYear[/b:46dc4b8f4f]
begin
If IsLeapYear(StrToInt(Edit1.Text)) then
ShowMessage(´Ano bisexto com certeza!!!´)
else
ShowMessage(´Não é um ano bisexto!!´);
end;
Essa segunda opção é bem melhor.
Boa Sorte!!!!
Martins
Gostei + 1
Mais Posts
14/02/2006
Rjun
Gostei + 0
14/02/2006
Rjun
Todos os anos que sejam múltiplos de 4 mas que não sejam múltiplos de 100, com exceção daqueles que são múltiplos de 400, são bissextos.
Mas tem uma funçao IsLeapYear que retorna se o ano é bissexto.
Gostei + 0
02/04/2016
Renato Silva*
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)