Connaître le nomber de jour du mois en VBA.

[MJ13]

Bonjour à tous

J'ai une date en VBA:

ex

DateAct=date

Je voudrais connaître le nombre de jours maxi du mois en VBA de cette date.

Merci d'avance 🙂.

 

[camarchepas]

Re : Connaître le nomber de jour du mois en VBA.

Alors logiquement :

JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(Date))))

 

[ROGER2327]

Re : Connaître le nomber de jour du mois en VBA.

Bonjour à tous

Un essai dans le classeur joint.​

ROGER2327
#6362

Mardi 10 Décervelage 140 (Drapaud (érection du) - Vacuation)
18 Nivôse An CCXXI, 5,4846h - pierre à chaux
2013-W02-1T13:09:47Z

 

[job75]

Re : Connaître le nomber de jour du mois en VBA.

Bonjour Michel, camarchepas,

Njours = Day(DateSerial(Year(DateAct), Month(DateAct) + 1, 0))
MsgBox Njours 'test

Edit : salut Roger

A+

 

[MJ13]

Re : Connaître le nomber de jour du mois en VBA.

Bonjour camarchepas, Roger, Job


Merci beaucoup à vous trois 🙂.

Les codes de Roger et Job ont l'air de fonctionner. Mais avec le code de camarchepas, ça marche pas 😱.

Exemple en tapant 01/01/2013 et 01/02/2013:

Sub NB_Jour_Mois()
DateAct = InputBox("Date")
JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(DateAct))))
MsgBox JourMax
End Sub