Bonjour,

J'ai un léger problème avec une partie de code qui me donne le numéro de la semaine de l'année.

Sachant que la semaine débute le dimanche et se termine le samedi.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
  'lblWeek_number
    Dim iNumberOfTheWeek As Integer
 
    iNumberOfTheWeek = DatePart("ww", Now())
    lblWeek_number.Caption = iNumberOfTheWeek
Normallement, en date d'aujourd'hui le 30 Décembre 2018, nous some la semaine 1 de l'année 2019. Parcontre, avec le code ci-haut, j'obtiens la semaine 53.

comment puis-je régler le problème sans utiliser:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 If iNumberOfTheWeek = "53" Then lblWeek_number = "1"
Merci de votre aide.