PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → Last Day / Último dia do Mês
Last Day / Último dia do Mês
Débuté par BOLLER, 07 oct. 2019 13:58 - 2 réponses
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 07 octobre 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/
Membre enregistré
309 messages
Popularité : +31 (37 votes)
Posté le 07 octobre 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
Message modifié, 07 octobre 2019 - 16:01
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 07 octobre 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/