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

Pierrot93

XLDnaute Barbatruc

• 2 Mars 2010

• #2

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

Bonjour La Braise

essaye peut être ainsi :

Code:

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
@+

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 2 Mars 2010

• #3

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

Bonjour LaBraise, Pierrot, le Forum

Une approche similiare à la tienne Pierrot

Code:

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
​

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 2 Mars 2010

• #4

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

merci à vous deux.

Je teste tout ça.

😀

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 3 Mars 2010

• #5

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

ça marche à la perfection.

Merci beaucoup pour votre aide.

😀

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Mars 2010

• #6

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:

Code:

[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

 

Dernière édition: 3 Mars 2010

Vote positif 0 Vote négatif