OVH Cloud OVH Cloud

Semaine du mois

3 réponses
Avatar
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

3 réponses

Avatar
Drizzit
Petite fonction ...

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
Avatar
david
salut,

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
Avatar
Eddan
Un grand merci por votre aimable aide.