ano bissexto

09/12/2003

1

Como posso descobrir se o ano é bissexto e se não for, qual o próximo ano que será bissexto.

Usando o Delphi 6


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


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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira