PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Last Day / Último dia do Mês
Last Day / Último dia do Mês
Iniciado por BOLLER, out., 07 2019 1:58 PM - 2 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 07 2019 - 1:58 PM
//Last Day / Último dia do Mês
Procedure LastDay(nDia28293031)

IF nMes = 1 THEN
nDia28293031 = 31
ELSE IF nMes = 2
IF (Modulo(nAno,400) = 0) OR ( Modulo(nAno,4) = 0 AND Modulo(nAno,100) <> 0)
nDia28293031 = 29
ELSE
nDia28293031 = 28
END
ELSE IF nMes = 3
nDia28293031 = 31
ELSE IF nMes = 4
nDia28293031 = 30
ELSE IF nMes = 5
nDia28293031 = 31
ELSE IF nMes = 6
nDia28293031 = 30
ELSE IF nMes = 7
nDia28293031 = 31
ELSE IF nMes = 8
nDia28293031 = 31
ELSE IF nMes = 9
nDia28293031 = 30
ELSE IF nMes = 10
nDia28293031 = 31
ELSE IF nMes = 11
nDia28293031 = 30
ELSE IF nMes = 12
nDia28293031 = 31
END

RESULT nDia28293031


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
309 mensagems
Popularité : +31 (37 votes)
Publicado em outubro, 07 2019 - 3:57 PM
Hi Adriano,
Why not :

Procedure lastDay (pOneDate is a date)
locDate is a date = pOnedate
locDate..day=1
locDate..Month++
locDate..day--
RESULT (locDate..day)


or

Procedure lastDay (pOneDate is a date)
locDate is a date = pOnedate
RESULT (LastDayOfMonth (locDate..year,locDate..month))



BR
Samir
Mensagem modificada, outubro, 07 2019 - 4:01 PM
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 07 2019 - 7:51 PM
Hi Samir,

Very Good!!!!

Thanks!

:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/