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
Calcul de Date
-
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
calcul de dates en CL
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
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
Christian Massé (Volubis.fr)
Calcul de dates en CL
Merci Christian je vais essayer ton pgm
Par contre j'ai un soucis avec BRMS as-tu des connaissances sur ce produit STP
Par contre j'ai un soucis avec BRMS as-tu des connaissances sur ce produit STP