Discussion :

[Tartenpion]

Bonjour,

Base sur la date systeme je souhaiterais avoir le premier et dernier jour du mois precedent.

Exemple: Nous sommes le 11/10/2006

Je souhaiterais creer une fonction qui me retourne les dates suivantes:

- Start = 01/09/2006
- End = 30/09/2006

Je ne sais pas trop comment m'y prendre...

[AlainTech]

Bien que le sujet ait été maintes fois discuté et qu'il s'agisse plus de logique que de code, je t'offre une occasion de te demander pourquoi tu n'as pas trouvé tout seul:

Code :

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

1
2
3
4
5
  Dim dFirst As Date
  Dim dLast As Date
  dLast = DateAdd("d", -1, CDate("1/" & Format(Date, "mm/yyyy")))
  dFirst = CDate("1/" & Format(DateAdd("m", -1, Date), "mm/yyyy"))
  MsgBox "Premier jour: " & dFirst & vbCrLf & "Dernier jour: " & dLast