Date Functions VisualBasic Script

Sub Main8()
   Debug.Print "Today's date is: " & Date
   Debug.Print "The year is: " & Year(Date)
End Sub