ano bissexto
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
Curtidas 0
Respostas
Barcelos
09/12/2003
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
GOSTEI 0
Chicorinthiano
09/12/2003
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:
GOSTEI 0