GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
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
Conecte-se…
Willian Fernando
#1
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
Denunciar
1
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto