PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → Last Day / Último dia do Mês
Last Day / Último dia do Mês
Iniciado por BOLLER, 07,oct. 2019 13:58 - 2 respuestas
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 07,octubre 2019 - 13:58
//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/
Miembro registrado
309 mensajes
Popularité : +31 (37 votes)
Publicado el 07,octubre 2019 - 15:57
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
Mensaje modificado, 07,octubre 2019 - 16:01
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 07,octubre 2019 - 19:51
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/