H datfmt(*ISO)
Ddatrecue S 8 0
Ddatretour S 8 0
Dwdate S D
DNBmois S 2 0
DNBjour S 3 0
Djour S 2 0
Dfindemois S n
C *entry plist
C parm datrecue
C parm datretour
C parm NBmois
C parm NBjour
C parm findemois
C* iso = yyyymmdd (il n'y a pas de séparateur dans le numérique)
C *ISO move datrecue wdate
C adddur NBmois:*M wdate
C adddur NBjour:*D wdate
c if findemois
* soit le 26 mars 1998
* --------------------
* ajoutons 1 mois ==> 26 Avril
* isolons le jour ==> 26
* retranchons 26 jours ==> 31 mars (26 jours avant le 26 Avril)
*
c adddur 1:*m wdate
c extrct wdate jour:*d
c subdur jour:*D wdate
c endif
C *ISO move wdate datretour
C move *on *inlr
| 
| 
