Discussion :

[ggvert]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[OhMonBato]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ggvert]

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 ?

[OhMonBato]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ggvert]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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