Discussion :

[mehdi501]

Bonjour
Comment récupérer la date du jour sous format Julien ?
Merci

[manu1303]

Bonjour,

Tu peux définir la zone comme ceci et ajouter dans une carte
Fdatfmt(*julien)
DDateJour S D inz(*job)

Manu

[K2R400]

Sur l'exemple de manu, tu peux déclarer la date au format Julien que pour une zone et pas forcément en carte H pour l'ensemble du programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
d Date1           s               d   INZ(*job)     
d                                     DATFMT(*JUL)

Dans cet exemple ou celui de manu, Date1 contiendra la date du jour sous format julien grâce à INZ(*Job).
Toutefois rien n'empêche de mouvementer une autre date dans Date1, elle sera convertie automatiquement.

[Hédhili Jaïdane]

Bonjour.

Bonjour
Comment récupérer la date du jour sous format Julien ?
Merci

Dans quel langage ? CL, RPG, Cobol
Et long (YYYYDDD) ou court (YYDDD) ?

[mehdi501]

Bonjour
Language CL
Merci

[K2R400]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
             PGM                                                      
             DCL        VAR(&CYMD)    TYPE(*CHAR) LEN(7)              
             DCL        VAR(&AAAAJJJ) TYPE(*CHAR) LEN(7)              
             RTVJOBA    CYMDDATE(&CYMD)                               
             CVTDAT     DATE(&CYMD) TOVAR(&AAAAJJJ) FROMFMT(*CYMD) +  
                          TOFMT(*LONGJUL) TOSEP(*NONE)                
 FIN:        ENDPGM

[Hédhili Jaïdane]

Tiens, tu peux essayer ceci, il y plusieurs variantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
0001.00              pgm
0002.00              dcl &sysdate *char 6                                      
0003.00              dcl &juldate *char 7                                      
0004.00              RTVSYSVAL  QDATE &SYSDATE                                 
0005.00              cvtdat date(&sysdate) tovar(&juldate) fromfmt(*sysval) +  
0006.00                     tofmt(*jul) tosep(*sysval)                         
0007.00              SNDUSRMSG  MSG(&sysdate *bcat '===>' *bcat &juldate)      
0008.00              cvtdat date(&sysdate) tovar(&juldate) fromfmt(*sysval) +  
0009.00                     tofmt(*jul) tosep(*none)                           
0010.00              SNDUSRMSG  MSG(&sysdate *bcat '===>' *bcat &juldate)      
0011.00              cvtdat date(&sysdate) tovar(&juldate) fromfmt(*sysval) +  
0012.00                     tofmt(*longjul) tosep(*none)                       
0013.00              SNDUSRMSG  MSG(&sysdate *bcat '===>' *bcat &juldate)      
0014.00  FIN:       endpgm

N'oublie pas le tag [Résolu], si ça réponds à ta question.
Bonne continuation.

[mehdi501]

Merci