Date Functions VisualBasic Script

Sub DatePartExample()
    Debug.Print DatePart("WW", Now)
End Sub