Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using Variables

Sub AgeCalc()       Dim FullName As String       Dim DateOfBirth As Date       Dim age As Integer       FullName = "John Smith"       DateOfBirth = #1/3/1967#       age = Year(Now()) - Year(DateOfBirth)       Debug.Print FullName & " is " & age & " years old." End Sub