basic
Example:
Sub Main
MyDate = "11/11/94"
x =
Year
(MyDate)
print x
End Sub