file.vb
Private Sub Command1_Click()
BirthDate = Text1.Text
MsgBox ("Age :" &ExactAge(BirthDate))
End Sub
Public Function ExactAge(BirthDate As Variant) As String
Dim yer As Integer, mon As Integer, d As Integer
Dim dt As Date
Dim sAns As String
dt = CDate(BirthDate)
If dt> Now Then Exit Function
yer = Year(dt)
Print yer
mon = Month(dt)
Print mon
d = Day(dt)
Print d
yer = Year(Date) - yer
mon = Month(Date) - mon
d = Day(Date) - d
sAns = yer& " year(s) " &mon& " month(s) " & d & " day(s) old."
ExactAge = sAns
End Function