FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WX - Como converter uma data e hora para Posix e vice-versa ?
WX - Como converter uma data e hora para Posix e vice-versa ?
Iniciado por adrianoboller, 31,ago. 2015 22:42 - 1 respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 31,agosto 2015 - 22:42
Procedure
ConvDtHo2UnixTime
(
pDtHo is DateTime
)
tmpDtHo is DateTime
=
pDtHo
tmpDtHo
..
Millisecond
=
0
// calcula a diferença de tempo entre 01/01/1970 e a data fornecida
tmpDif is TO
string
=
DateTimeDifference
(
"19700101000000"
,
tmpDtHo
)
// calcula a data Posix
tmpUnix is Duration
=
StringToDuration
(
tmpDif
,
durationCenti
)
tmpUnix
..
Millisecond
=
0
RESULT
tmpUnix
Informar
0
0
adrianoboller
#2
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 31,agosto 2015 - 22:42
Procedure
ConvUnixTime2DtHo
(
pUnixTime is numeric
)
tmpMaxInt4b is
int
on
4
bytes
=
2147483647
tmpSegundos is
int
on
8
bytes
tmpUnix is Duration
IF
pUnixTime
<
=
tmpMaxInt4b
THEN
tmpUnix
..
Second
=
pUnixTime
ELSE
// para suportar datas após 19/01/2038 e Posix > 2147483647 (valor máximo em 4 bytes)
tmpSegundos
=
pUnixTime
LOOP
tmpUnix
..
Second
+
=
tmpMaxInt4b
tmpSegundos
-
=
tmpMaxInt4b
IF
tmpSegundos
<
tmpMaxInt4b
THEN
tmpUnix
..
Second
+
=
tmpSegundos
BREAK
END
END
END
tmpDtHo is DateTime
=
"19700101000000"
tmpDtHo
+
=
tmpUnix
RESULT
tmpDtHo
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