[محمود اكرم]

Dim DOB As New Date


'(1992/ 11/ 9)
DOB = InputBox("", "")
Dim Years As Integer = DateDiff(DateInterval.Year, DOB, Now)
Dim Moths As Integer = DateDiff(DateInterval.Month, DOB, Now) Mod 12
MsgBox(Years & "Years" & Moths & "Months")