Printable Version of Topic
Click here to view this topic in its original format
Forum de Prologue Community > Je recherche un source ...... > conversion Unix timestamp


Posted by: root 20/04/18 11:30
Bonjour à tous
j'ai une donnée de type Unix timestamp , je cherche comment convertir ce type de donnée en quelques choses de plus lisible pour un être humain:
exemple :1523450440 qui a priori correspond à Wed, 11 Apr 2018 12:40:40 GMT

une idée ?

Posted by: LLC 21/04/18 10:45
pas très compliqué voila un exemple:
CODE

PROC TIMESTAMP2DATE(TIMES=12):$=10
FIELD=M  
  DCL NBJ=7,NBJT=7,JRS%,DECOMPTE=12
  DCL RESULT$=10
  FIELD=M,RESULT
    DCL TDAT$=4
    FIELD=M,TDAT
      DCL AN%,MO#,JO#
    DCL HH%,MM%,SS%
ENDLOC
INITLOCAL
JO=1 :: MO=1 :: AN=1970
NBJT=FIX(TIMES/(24*3600),0)
DECOMPTE=TIMES-(24*3600*NBJT)
REPEAT
  NBJ=365
  IF MOD(AN,4)=0 : NBJ=366
  NBJT=NBJT-NBJ
  IF NBJT>0 : AN=AN+1
UNTIL NBJT<=0
NBJT=NBJT+NBJ
JRS=CONV(NBJT)
TDAT=ZDATMORE(TDAT,JRS)

HH=CONV(DECOMPTE)/3600
DECOMPTE=DECOMPTE-(3600*CONV(HH))
MM=CONV(DECOMPTE)/60
DECOMPTE=DECOMPTE-(60*CONV(MM))
SS=CONV(DECOMPTE)

EXIT (RESULT)
ENDPROC

SEGMENT 0
FIELD=M
  DCL I%,E%,EE%,TTSOM=7
  DCL TEXT$=80,TEXT2$=80
  DCL RESULT$=10
  FIELD=M,RESULT
    DCL TDAT$=4
    FIELD=M,TDAT
      DCL AN%,MO#,JO#
    DCL HH%,MM%,SS%
ENDLOC
INITLOCAL
RESULT=TIMESTAMP2DATE(1523450440)
PRINT=1:TAB(01),(ZZ,"/",ZZ,"/",Z4," ",Z2,":",Z2,":",Z2),JO,MO,AN,HH,MM,SS,TABV(1)

PRINT=1:TAB(01),"Wed, 11 Apr 2018 12:40:40"
PAUSE " "
ESEG 0
END


@+ wink.gif

Posted by: root 21/04/18 20:08
Merci à toi llc

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)