dDateRet est une date
dDateRef est une date //Une date est affectaée automatiquement avec la date du jour
nJoursAAjouter est un entier = 10
dDateRet = DateAdd( "J", dDateRef, nJoursAAjouter )
PROCEDURE DateAdd( pType est une chaine, pDateRef est une date, pNbAAjouter est un entier)
Selon Majuscule(pType)
Cas "M" //Addition de mois
RENVOYER (pDateRef..Mois += pNbAAjouter
Cas "A" //Addition de mois
RENVOYER (pDateRef..Annee += pNbAAjouter
Autres Cas //Addition de jour
RENVOYER(pDateRef..Jour += pNbAAjouter)
Fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=5844&post_id=23685