VBA - récupérer le nb de jours du mois

[La braise]

Bonjour à tous,

Je cherche à connaitre le nb de jour d'un mois donné.

Existe-t'il une formule simple pour faire cela en VBA?

D'avance merci pour votre aide toujours aussi efficace.

😀

 

[Pierrot93]

Re : VBA - récupérer le nb de jours du mois

Bonjour La Braise

essaye peut être ainsi :

Dim d As Date
d = #3/2/2010# 'format mm/jj/aaaa
MsgBox Day(DateSerial(Year(d), Month(d) + 1, 0))

bon après midi
@+

 

[_Thierry]

Re : VBA - récupérer le nb de jours du mois

Bonjour LaBraise, Pierrot, le Forum

Une approche similiare à la tienne Pierrot

Sub ReturningNumberOfDaysOfMonth()
Dim MyDate As Date
MyDate = Date 'Remplacer par Variable Date
MsgBox "Nous Somme le " & Format(MyDate, "DD/MM/YYYY") & " il y a " & Day(DateSerial(Year(MyDate), Month(MyDate) + 1, 0)) & " Jours en " & MonthName(Month(MyDate))
End Sub

Bonne Journée

@+Thierry
​

 

[La braise]

Re : VBA - récupérer le nb de jours du mois

merci à vous deux.

Je teste tout ça.

😀

 

[La braise]

Re : VBA - récupérer le nb de jours du mois

ça marche à la perfection.

Merci beaucoup pour votre aide.

😀

 

[ROGER2327]

Re : VBA - récupérer le nb de jours du mois

Bonsoir à tous

Une fonction qui permet de prendre optionnellement l'année en compte:

[COLOR="DarkSlateGray"][B]Function nbJourDuMois(m%, Optional a% = 1)
   a = a + (m - 1) \ 12
   m = (m - 1) Mod 12
   nbJourDuMois = 28 + Array(3, _
      -(a Mod 400 = 0) + (a Mod 100 = 0) - (a Mod 4 = 0), _
      3, 2, 3, 2, 3, 3, 2, 3, 2, 3)(m)
End Function[/B][/COLOR]

=nbJourDuMois(7) renvoie 31 ;
=nbJourDuMois(2) renvoie 28 ;
=nbJourDuMois(2;1999) renvoie 28 ;
=nbJourDuMois(2;2000) renvoie 29 ;
=nbJourDuMois(14;2000) renvoie 28 ; (14 est considéré comme deuxième mois de l'année suivante, i.e. février 2001.)

Pourquoi faire simple si l'on peut faire compliqué ?​

ROGER2327
#2888