|
| 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 Boller, 31,ago. 2015 22:42 - 1 respuesta |
| |
| | | |
|
| |
Miembro registrado
4.520 mensajes |
|
| Publicado el 31,agosto 2015 - 22:42 |
Procedure ConvDtHo2UnixTime(pDtHo is DateTime)
tmpDtHo is DateTime = pDtHo
tmpDtHo..Millisecond = 0
tmpDif is TO string = DateTimeDifference("19700101000000",tmpDtHo)
tmpUnix is Duration = StringToDuration(tmpDif,durationCenti)
tmpUnix..Millisecond = 0
RESULT tmpUnix |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.520 mensajes |
|
| 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
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 |
| |
| |
| | | |
|
| | | | |
| | |
|