Discussion :

[paradeofphp]

Salut,
J'ai besoin de connaitre le dernier jour du mois d'une date que je donne.
J'ai consulté la FAQ, j'ai trouvé le code suivant :

Code :

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

1
2
3
4
5
 
Dim Reponse As Date
Reponse = CDate("01/" & Month(Date) + 1 & "/" & Year(Date))
Reponse = DateAdd("d", -1, Reponse)
MsgBox Reponse

Le problème c'est que lorsque je donne une date avec le mois 12, ca donne pa la bonne valeur. Par exemple j'ai donné 19/12/2005, ca donne comme resultat 12/01/2005

[SfJ5Rpw8]

ben tiens une réponse

Code :

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

1
2
3
4
5
6
7
 
Sub test()
Dim Reponse As Date
Madate = DateValue("19/12/2005")
Reponse = DateSerial(Year(Madate), Month(Madate) + 1, 1) - 1
MsgBox Reponse
End Sub

[paradeofphp]

Merci c'est bien reglé. a bientot