Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Use year function to get the year

Sub AgeCalc2()       ' variable declaration       Dim FullName$       Dim DateOfBirth As Date       Dim age%       ' assign values to variables       FullName$ = "John Smith"       DateOfBirth = #1/3/1967#      ' calculate age      age% = Year(Now()) - Year(DateOfBirth)      ' print results to the Immediate window      MsgBox FullName$ & "is" & age% & " years old." End Sub