Fév 28

Utiliser la date du jour ou J+x comme paramètre pour une fonction peut vite devenir un casse tête. Voilà une solution utile dans le cadre d’une utilisation de QuickTest Pro et/ou des business components.

On utilisera ici un entier qui sera converti en date du jour + x jour

Ci-dessous un exemple de script :

'Déclaration de la variable
 
Dim Date_Glissante
 
'Récupération du paramètre  date dans le cas de l’utilisation de BC
 
Date_Glissante=Parameter("sDate_En_Entree_Du_Business_Component")
 
'Autrement (par ex :  utilisation dans une fonction)
 
Date_Glissante=0     ' on  peut mettre 1 pour demain, 2 pour après demain, etc ...
 
Date_Glissante=formatdatetime(dateadd("d",Date_Glissante  ,date()) ,vbShortDate)
 
msgbox Date_Glissante

‘On a donc transformé un nombre entier (positif ou  négatif) en une date égale à la date du jour plus ou moins ce nombre.

Leave a Reply

You must be logged in to post a comment.

preload preload preload