Calcul de Date

[Scorpion]

Bonjour,

Je n'arrive pas à calculer une date à partir d'un nombre de jours

Par exemple :

Date d'aujourd'hui +28jours

Comment réaliser ce calcul en clp

[cmasse]

Il n'y a pas de routines de calcul de date intégrées au CL (contrairement au RPG ou à SQL), mais il y a des API ILE.

par exemple ce pgm récupère la date du jour et ajoute 28 jours.

ATTENTION type de source CLLE

Code : Tout sélectionner

            PGM                                                 
                                                                 
            DCL        VAR(&jour) TYPE(*CHAR) LEN(6)             
            DCL        VAR(&DAte) TYPE(*CHAR) LEN(6)             
            DCL        VAR(&DAY) TYPE(*INT)                      
                                                                 
           /* ------------------------------------------ */                  
           /* Récupération date du jour et cvt en YYMMDD */                  
           /* ------------------------------------------ */                  
            RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&JOUR)               
            CVTDAT     DATE(&JOUR) TOVAR(&JOUR) FROMFMT(*JOB) +  
                         TOFMT(*YMD) TOSEP(*NONE)                
           /* ----------------------------------------- */                  
           /* Conversion de la date en jour Lilian      */                  
           /* ----------------------------------------- */                  
             CALLPRC    PRC(CEEDAYS) PARM(&JOUR 'YYMMDD' &DAY)   
           /* ------------------------------------------- */              
           /* + 28 jours(c'est du binaire) et cvt inverse */              
           /* ------------------------------------------- */              
              chgvar &day (&day + 28)                           
              CALLPRC    PRC(CEEDATE) PARM(&DAY 'YYMMDD' &DATE) 
              ENDPGM               

[Scorpion]

Merci Christian je vais essayer ton pgm

Par contre j'ai un soucis avec BRMS as-tu des connaissances sur ce produit STP

[cmasse]

Hélas non, je n'utilise pas ce produit.
(et comme nous sommes en Aout les membres du forum l"utilisant doivent être en vacances)

[Scorpion]

Ouai je pense aussi wouarfff j'ai pas de chance bon on va laisser passer les vacances y a pas d'autre choix

Merci quand même bonne APM