Date Functions VisualBasic Script

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