FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
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
Conéctese…
BOLLER
#1
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
(
n
Dia28293031
)
IF
n
Mes
=
1
THEN
n
Dia28293031
=
31
ELSE IF
n
Mes
=
2
IF
(
Modulo
(
n
Ano
,
400
) =
0
)
OR
(
Modulo
(
n
Ano
,
4
) =
0
AND Modulo
(
n
Ano
,
100
) <
>
0
)
n
Dia28293031
=
29
ELSE
n
Dia28293031
=
28
END
ELSE IF
n
Mes
=
3
n
Dia28293031
=
31
ELSE IF
n
Mes
=
4
n
Dia28293031
=
30
ELSE IF
n
Mes
=
5
n
Dia28293031
=
31
ELSE IF
n
Mes
=
6
n
Dia28293031
=
30
ELSE IF
n
Mes
=
7
n
Dia28293031
=
31
ELSE IF
n
Mes
=
8
n
Dia28293031
=
31
ELSE IF
n
Mes
=
9
n
Dia28293031
=
30
ELSE IF
n
Mes
=
10
n
Dia28293031
=
31
ELSE IF
n
Mes
=
11
n
Dia28293031
=
30
ELSE IF
n
Mes
=
12
n
Dia28293031
=
31
END
RESULT
n
Dia28293031
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Informar
0
0
Samir BOUCHETIBAT
#2
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
Informar
1
0
BOLLER
#3
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 07,octubre 2019 - 19:51
Hi Samir,
Very Good!!!!
Thanks!
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto