L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Numéro de la semaine

Imprimer E-mail
5 mars 2014

Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :

Public Function NoSem(UneDate As Date) As Integer 
   On Error Resume Next 
   NoSem = CInt(Format(UneDate, "ww", vbMonday, vbFirstFourDays))
   'Verification du bug, reconnu par MS, sur Oleaut32.dll
   If NoSem > 52 Then
      If CInt(Format(UneDate + 7, "ww", vbMonday, vbFirstFourDays)) = 2 Then NoSem = 1
   End If
End Function