le forum IBM i

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

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

Merci Christian je vais essayer ton pgm

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

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)

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

le forum IBM i

Calcul de Date

Calcul de Date

calcul de dates en CL

Calcul de dates en CL

BRMS

BRMS