WDForge.org - Forums

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

Sujet: Re: Calcul de date : datedu jour + 15 jours ...
par drcharly93 sur 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