Date Functions VisualBasic Script

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