by Sandeep Goyal (2 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30th October 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Age Calculator
API Declarations
Dim age As Integer
Dim input1 As String, input2 As Integer, input3 As Integer
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