Date Functions VisualBasic Script

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