date et numéro de semaine

Bonjour,
que penses que la question a deja etait vu et revu , mais peut etre que cela a evolué !!!
Je m'explique grace a un calendrier je recupere une date dans txt_date_liv,
je souhaiterais afficher dans txt_semaine c'est date mais en numero de semaine.

j'ai bien vu cette fonction pour la date du jour:
txt_semaine.Text = DatePart("ww", Date.Today())

Merci, si quelqu'un pouvais m'aider
je bosse sur un planning alors les dates ...


benben

fonction qui permet d'avoir le 1er jour de la semaine en fonction de son n°!
function firstDay(nSem, Année)
d = dateadd("ww", nSem-1,"01/01/" & Année)
firstDay = d - (WeekDay(d) - 2)
end function

Ca peut toujours servir j'ai galéré pr la trouver...
TBBUIM

Merci je cherchais le numero de semaine en fonction d'une date

benben