by Ali Atiq (5 Submissions)
Category: Math/Dates
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 19th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Easy to get your age, number of year(s), month(s) & day(s)
API Declarations
Please, once you test code and found any mistake, for god sake
email me on [email protected]
'Command button control
Private Sub cmdBirthday_Click()
Dim d, m, y, d1, d2, tmp, Msg
d2 = Format(Date, "dd/mm/yyyy")
'User enter birthday
d1 = Format(InputBox("Enter your birthday"), "dd/mm/yyyy")
If Not IsDate(d1) Then
MsgBox "Invalid date entry, try again"
Exit Sub
End If
If DateValue(d1) >= DateValue(d2) Then
MsgBox "Invalid date entry, try again"
Exit Sub
End If
'Set number of year(s)
y = DateDiff("yyyy", d1, d2)
d1 = DateAdd("yyyy", y, d1)
'Set number of month(s)
m = DateDiff("m", d1, d2)
d1 = DateAdd("m", m, d1)
'Set number of day(s)
d = DateDiff("d", d1, d2)
'User get esults
Msg = "Year(s) = " & y & vbNewLine _
& "Month(s) = " & m & vbNewLine _
& "Day(s) = " & d
MsgBox Msg
End Sub