Re: Calcul de date : datedu jour + 15 jours ...

Posté par drcharly93 le 25/4/2008 11:13:12
Bonjour,

Il suffit d'utiliser le code suivant:
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 )

Pour la procédure
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