Ano bissexto

Delphi

14/02/2006

Como saber se um ano e bissexto ou não? Tem alguma funcao do Delphi pra isso?


Paulo

Paulo

Curtidas 0

Melhor post

Martins

Martins

14/02/2006

Esqueçe o que falei a cima. Para se calcular o ano bissexto a regra é assim: 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.


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!!!!


GOSTEI 1

Mais Respostas

Rjun

Rjun

14/02/2006

Divida o ano por 4 e por 400. Se o resto for zero então o ano é bissexto.


GOSTEI 0
Rjun

Rjun

14/02/2006

Esqueçe o que falei a cima. Para se calcular o ano bissexto a regra é assim:

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
Renato Silva*

Renato Silva*

14/02/2006

Muito obrigado pela dica amigo!
GOSTEI 0
POSTAR