Semaine du mois
Le
Eddan
Bonjour,
Sachant qu'un mois peut avoir 4 ou 5 semaines, est-il possible d'après une
date, d'avoir le n° de la semaine du mois (1, 2, 3, etc)
Merci
Sachant qu'un mois peut avoir 4 ou 5 semaines, est-il possible d'après une
date, d'avoir le n° de la semaine du mois (1, 2, 3, etc)
Merci
Poser une question
Public Function NumeroSemaine(datMaDate As Date, _
Optional lngPremierJourSemaine As VbDayOfWeek vbMonday) As Long
NumeroSemaine = Format(datMaDate, "ww", lngPremierJourSemaine) - _
Format("01/" & Format(datMaDate, "mm/yy"), "ww",
lngPremierJourSemaine) + 1
End Function
fait simplement un :
1+ (Day([maDate]) 7)
Avec [maDate] correspondant à la date à tester.
En fait, on prend le numéro du jour que l'on divise par 7 (toujours 7
jours par semaine, ouf...). On y ajoute 1 car la numérotation des
semaines commence à 1 et non à 0.
A+, david