• Home
 · 
• Math/Dates
 · 
• Age Calculator

Age Calculator

Age Calculator

API Declarations


Dim age As Integer
Dim input1 As String, input2 As Integer, input3 As Integer




Rate Age Calculator

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

input1 = InputBox("What Is Your Name?:", "Name Please...")
input2 = InputBox("What Year Were You Born?:", "Year Please...")
input3 = InputBox("Enter Current Year:", "Current YEAR pLEASE...")
age = input3 - input2
lbldisplay.Caption = "You Are " & input1 & " And You Are " & age & " Years Old"
End Sub