[vba] week uit datum halen

[Blizard]

Er zijn functies voor de dag, maand en jaar etc, maar hoe haal ik de week uit een datum ?
Als ik nou bv wil berekenen welke week we vandaag zijn, hoe doe ik dat dan ?!

[Verwijderd]

datepart (klik)

[Blizard]

Public Function WeekVanHetJaar(Datum As Date)
Dim dtWeek As Date
dtWeek = DatePart("ww", Datum, vbMonday)
Debug.Print dtWeek
End Function

Als ik deze functie gebruik krijg ik hetvolgende

weekvanhetjaar(#10/12/2002#)
9/02/1900

?!?

[Verwijderd]

Week nummer lijkt me een typish geval van 'n numerike waarde.. geen datum/tijd waarde