Calcul date VBS

Bonjour

J'aimerais écrire la date du jour donc :

Code:

---

1 2 3 4 5 6 7 8

Dim ActualDay, MyDay, MyMonth   MyDay = Day(Now) MyMonth = Month(Now)   If Len(MyDay) = 1 Then MyDay = "0" & MyDay If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth ActualDay = MyDay & "." & MyMonth & "." & Year(Now)

---

ensuite j’écris la date

Code:

---

session.findById("wnd[0]/usr/ctxtDATUV").text = ActualDay

---

ceci fonctionne

maintenant j'aimerais écrire la date avec 7 jours de moins ou plus de la date du jour ex :

Code:

---

ActualDay = ActualDay-7

---

Est ce possible et avez vous une idée

Par avance Merci

Yannis

Salut YANISCRIPT, bienvenue sur DVP

Code:

---

1 2 3 4

NouvDate = FormatDateTime((DateAdd("d", 7, Now)),1) msgbox NouvDate NouvDate = FormatDateTime((DateAdd("d", -7, Now)),1) msgbox NouvDate

---

Tu peux aller voir ma page sur DVP (dernière ligne lien dans ma signature), de là tu pourras charger l'aide en ligne pour VBScript.

parfait merci beaucoup