Problème de Format date

[kgb1917]

Bonjour,
J’ai un gros souci avec la fonction Format. Je cherche à récupérer les dates du premier et dernier jour du mois selon ce qui est contenu dans une zone de texte pour obtenir une plage de dates. Pour ça, je me suis inspiré du code de la FAQ.
J’ai fait ceci :

Code :

1
2
3
4
5
6
Dim oDate As Date
Dim oDateDebut As Date
Dim oDateFin As Date
oDate = Me.MaZoneDeTexte.Value
oDateDebut = Format(DateSerial(Year(oDate), Month(oDate), 1), "mm/dd/yyyy")
oDateFin = Format(DateSerial(Year(oDate), Month(oDate) + 1, 0), "mm/dd/yyyy")

Si je prends la date du jour, ça me donne :
oDate : 08/12/2011
oDateDebut :12/01/2011
oDateFin : 31/12/2011
Les 2 premières variables sont bonnes mais pas la 3ème et ce quelle que soit la valeur de oDate. J’ai essayé différents formats pour voir, pas de changement, la variable reste toujours dans ce format !!!
Auriez-vous une idée ?

[NguyenRD]

salut,

ca m'a l'air tres bien ton code et tes resultats.
je ne comprends pas ce qui ne va pas.

a+

[nefertari]

Bonjour

Voici ce que tu dois faire :

Code :

1
2
3
4
5
6
7
8
 
Dim oDate As String
Dim oDateDebut As String
Dim oDateFin As String
 
oDate = Me.MaZoneDeTexte.VALUE
oDateDebut = FORMAT(DateSerial(Year(oDate), Month(oDate), 1), "mm/dd/yyyy")
oDateFin = FORMAT(DateSerial(Year(oDate), Month(oDate) + 1, 0), "mm/dd/yyyy")

résultat:
oDate : 08/12/2011
oDateDebut :12/01/2011
oDateFin : 12/31/2011