• Home
 · 
• String Manipulation
 · 
• Calculate your Exact age Simple Code

Calculate your Exact age Simple Code

Calculate your Exact age Simple Code

API Declarations


text1 put your date of birth (dd/mm/yyyy)
text2 put present or desired day (dd/mm/yyyy)


Dim a, b, c, d, e, f




Rate Calculate your Exact age Simple Code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

a = DateDiff("yyyy", TextBox1.Text, TextBox2.Text)' calculate year
b = DateDiff("d", TextBox1.Text, TextBox2.Text) ' calc days
c = DateDiff("m", TextBox1.Text, TextBox2.Text)' calc months
d = (b * 24) ' calc hours 
e = (d * 60) ' calc minutes 
f = (e * 60) ' calc seconds
MsgBox a & " Years  " & vbCrLf & b & " Days " & vbCrLf & c & " Months " & vbCrLf & d & " Hours " & vbCrLf & e & " Minutes " & vbCrLf & f & " Seconds", , "Exact Age"
End Sub