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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?