Discussion :

[zerobug]

Bonjour

J'aimerais définir une plage de dates dans un mois et ensuite énumérer chaque élément de cet intervalle.

Par exemple, en définissant une plage du 1 au 24 Mars; j'aimerais pouvoir lister chacun de ces jours au format 01/03/2009 pour remplir un tableau donné.

J'ai guetté sur le net, mais ne vois aucune piste susceptible de m'aider surtout au niveau de la définition de la plage et de l'énumération au format date.

En espérant avoir été clair, veuillez m'indiquer solutions potentielles svp.

Et mersi d'avance.

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim DateDebut
Dim DateFin
Dim T
Dim U
Dim MeTablDate
DateDebut = CDate("01/03/09")
DateFin = CDate("24/03/09")
U = DateFin - DateDebut
ReDim MeTablDate(U-1)
 
For T = 0 To U-1
 MeTablDate(T) = DateDebut + T + 1
 msgbox MeTablDate(T)
Next