Try this,

Code: VB
DatePart("ww", Now())