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
(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
Calculate your Exact age Simple Code Comments
No comments yet — be the first to post one!
Post a Comment