Year (dates) Purpose Returns the year from any valid date expression. Syntax Year (DateExpression) Example Sub Main()         Dim d As Date         Dim yearnum As Integer         d = Today         yearnum = Year(d)                 Print "This year is"; yearnum; "A.D." End Sub