Quand je sélectionne une date sur le Calendar

Par exemple le Dimanche 3 janvier, avec ce code j'obtiens Semaine 2, alors qu'en réalité c'est la semaine 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim LaSemaine as Integer=DatePart("ww", NewDate)
Et d'ailleurs cela me donne Semaine 53 pour le 31 décembre
Peut-on réglerce problème ?
Merci pour vos réponses
JCM