PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Função para saber si o Ano é Bissexto  ou não
Função para saber si o Ano é Bissexto ou não
Iniciado por Willian Fernando, fev., 01 2016 12:51 PM - Sem resposta
Membro registado
123 mensagems
Popularité : +46 (46 votes)
Publicado em fevereiro, 01 2016 - 12:51 PM
Procedure Bissexto(ano is int)
IF (Modulo(ano,4)=0 AND Modulo(ano,100)<>0) OR (Modulo(ano,400)=0) THEN
RESULT True
ELSE
RESULT False
END


//Ou Pode ser utilizado deste outro modo
Procedure Bissexto(ano is int)

d_data_verifica is Date
d_data_verifica = DateSys()//Data Atual do Sistema
d_data_verifica..Year = ano//Trocamos o ano pelo ano passado por parámetro
d_ultimo_dia_mes is Date
d_ultimo_dia_mes = LastDayOfMonth(d_data_verifica..Year,2) //Verifica ultima dia do Mes de Fevereiro
IF d_ultimo_dia_mes..Day = 28 THEN
RESULT False
ELSE
RESULT True
END


--
Atte. Willian Fernando