MJ13 XLDnaute Barbatruc 7 Janvier 2013 #1 Bonjour à tous J'ai une date en VBA: ex Code: DateAct=date Je voudrais connaître le nombre de jours maxi du mois en VBA de cette date. Merci d'avance .
Bonjour à tous J'ai une date en VBA: ex Code: DateAct=date Je voudrais connaître le nombre de jours maxi du mois en VBA de cette date. Merci d'avance .
camarchepas XLDnaute Barbatruc 7 Janvier 2013 #2 Re : Connaître le nomber de jour du mois en VBA. Alors logiquement : JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(Date)))) Vote positif 0 Vote négatif
Re : Connaître le nomber de jour du mois en VBA. Alors logiquement : JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(Date))))
ROGER2327 XLDnaute Barbatruc 7 Janvier 2013 #3 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 Pièces jointes AFAC.xlsm 16.6 KB · Affichages: 32 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 7 Janvier 2013 #4 Re : Connaître le nomber de jour du mois en VBA. Bonjour Michel, camarchepas, Code: Njours = Day(DateSerial(Year(DateAct), Month(DateAct) + 1, 0)) MsgBox Njours 'test Edit : salut Roger A+ Dernière édition: 7 Janvier 2013 Vote positif 0 Vote négatif
Re : Connaître le nomber de jour du mois en VBA. Bonjour Michel, camarchepas, Code: Njours = Day(DateSerial(Year(DateAct), Month(DateAct) + 1, 0)) MsgBox Njours 'test Edit : salut Roger A+
MJ13 XLDnaute Barbatruc 7 Janvier 2013 #5 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: Code: Sub NB_Jour_Mois() DateAct = InputBox("Date") JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(DateAct)))) MsgBox JourMax End Sub Vote positif 0 Vote négatif
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: Code: Sub NB_Jour_Mois() DateAct = InputBox("Date") JourMax = CInt(DateAdd("d", -1, DateAdd("m", 1, Month(DateAct)))) MsgBox JourMax End Sub