Function NOSEM(d As Date) As Long
[COLOR="Green"]'
' Fonction ajoutée le 2/06/2004 par ROGER
' N° de la semaine dans l'année de la date D conforme à la norme ISO.
'[/COLOR]
d = Int(d)
NOSEM = DateSerial(Year(d + (8 - WeekDay(d, vbSunday)) Mod 7 - 3), 1, 1)
NOSEM = ((d - NOSEM - 3 + (WeekDay(NOSEM, vbSunday) + 1) Mod 7)) \ 7 + 1
End Function