Bonjour Le Forum,
Tout est dans le titre, lol
Je m'explique, j'utilise cette fonction pour calculer le numéro de semaine d'une date.
Elle fonctionne nikel.
mais je voudrais que les date du 1er janvier ne soit jamais en semaine 52 mais en semaine 1 de l'année concernée.
Est-ce jouable ?
Bonne am et bon We
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Function NOSEM(D As Date) As Long D = Int(D) NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1) NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) \ 7 + 1 If NOSEM >= 52 And Month(D) = 1 Then NOSEM = 0 End If End Function
Seb
Partager