ano bissexto
09/12/2003
0
Como posso descobrir se o ano é bissexto e se não for, qual o próximo ano que será bissexto.
Usando o Delphi 6
Usando o Delphi 6
Salupe
Curtir tópico
+ 0
Responder
Posts
09/12/2003
Barcelos
Olá,
Use a Função IsLeapYear da unit SysUtils, ela retorna true ou false dependo do resultado. Tem como único parâmetro um valor Word que representa o ano, portanto, se você usa TDateTime, terá que usar DecodeDate para se adaptar a esta função.
Exemplo de uso:
If IsLeapYear(2003) then
...condições...
Espero ter ajudado
Barcelos
osbarcelos@hotmail.com
Use a Função IsLeapYear da unit SysUtils, ela retorna true ou false dependo do resultado. Tem como único parâmetro um valor Word que representa o ano, portanto, se você usa TDateTime, terá que usar DecodeDate para se adaptar a esta função.
Exemplo de uso:
If IsLeapYear(2003) then
...condições...
Espero ter ajudado
Barcelos
osbarcelos@hotmail.com
Responder
11/12/2003
Chicorinthiano
Olá,
Use a Função IsLeapYear da unit SysUtils, ela retorna true ou false dependo do resultado. Tem como único parâmetro um valor Word que representa o ano, portanto, se você usa TDateTime, terá que usar DecodeDate para se adaptar a esta função.
Exemplo de uso:
If IsLeapYear(2003) then
...condições...
Espero ter ajudado
Barcelos
osbarcelos@hotmail.com
Obrigatoriamente os anos bissextos são divisíveis por 4. Se quiser, dá pra usar :
if (Ano mod 4) = 0 then
showmessage(´Ano Bissexto´);
:wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)