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

Faites appel à moi

pour vos formations chez vous pour les dpts 59, 62, 80, 81, 31, 82 et 11 ou à distance

pour vos développements bureautiques (tout Office)

 Communauté partenaire Microsoft

Numéro de la semaine

Numéro de la semaine

 Haut

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))
End Function
   Impression Impression