Problème de date (format, comparaison)

Bonjour,

voici le problème auquel je suis confronté
je souhaiterais faire ceci (j'écris du pseudo code) sous VBA :

Code:

---

1 2 3 4 5 6 7

ancienneDate = dateActuelle - 21 jours   while ancienneDate <= dateActuelle ... ancienneDate = ancienneDate +1 jour fin while

---

ce qui me pose problème, c'est que toutes les dates doivent être au format "mm-dd-yyyy" (car base access). Et ce doit bien être des formats Date pour permettre d'ajouter un jour à ancienneDate dans la boucle while.

j'ai testé ce genre de chose :

Code:

---

1 2	dim date1 as date date1 = CDate(dateAdd(-21,"d",Format(Date, "dd/mm/yyyy")))

---

mais cela ne va pas car la fonction CDate utilise le format de date du système, qui est chez moi "dd-mm-yyyy"

je cale un peu, si certains peuvent m'aider, merci...:ccool:

Il ne faut pas déclarer ta variable comme date :

Code:

---

1 2	Dim Ch As String Ch = Format(DateAdd("d", -21, Date), "mm/dd/yyyy")

---

merci pour ta réponse mais si c'est un type string, comment je fais pour l'incrémenter d'un jour dans ma boucle while ?

As tu fait l'essai ?
Si j'essaye de faire comme ci dessous, ça fonctionne.

Code:

---

1 2 3 4 5 6

Dim Ch As String Ch = Format(DateAdd("d", -21, Date), "mm/dd/yyyy") While Ch < Date Ch = DateAdd("d", 1, Ch) Debug.Print Ch Wend

---

salut,

si je fais comme tu le suggères, voici ce que ça donne :

après son instanciation, Ch vaut 06/03/2011 (ça c'est normal)
il entre dans la boucle, mais après l'incrémentation, cela passe à 07/03/2011, au lieu de 06/04/2011

cela s'explique surement du fait que ma machine (windows) est configuré avec un format de date jj/mm/yyyy, donc quand je lui dis d'incrémenter les jours, il incrémente la première valeur de la date... et donc mon cas, c'est les mois. Je ne sais pas si je suis bien clair...

ps : si je passe ma machine en mode "mm/dd/yyyy", cela résout mon souci, mais je ne veux pas faire comme ça :)

bonsoir,

pour travailler sur des dates il vaut mieux utiliser des données de type date, et tu ne passe en chaine que pour l'affichage :

Code:

---

1 2 3 4 5 6 7

Dim d As Date d = DateAdd("d", -21, Date) Debug.Print ">>>" & d & " : " & Format(d, "mm/dd/yyyy") While d < Date d = DateAdd("d", 1, d) Debug.Print d & " : " & Format(d, "mm/dd/yyyy") Wend

---

Citation:

---

Envoyé par bbil

bonsoir,

pour travailler sur des dates il vaut mieux utiliser des données de type date, et tu ne passe en chaine que pour l'affichage :

Code:

---

1 2 3 4 5 6 7

Dim d As Date d = DateAdd("d", -21, Date) Debug.Print ">>>" & d & " : " & Format(d, "mm/dd/yyyy") While d < Date d = DateAdd("d", 1, d) Debug.Print d & " : " & Format(d, "mm/dd/yyyy") Wend

---

---

en effet cela simplifie grandement les choses... et ça marche en plus. Merci :ccool: