Age calculator

[joacro]

Hi there all,

I have a userform where I got two txtboxes

the one is for the date of birth and the other on need say how old the person is.

txtdob and txtage

How do I go about doing this

Regards

 

[BenMiller]

Try =YEARFRAC(A1,TODAY()), where A1 houses the DOB. It will give you with a decimal, but you can format it not to include decimals.

 

[BenMiller]

Actually, my mistake. You need to use this one: =ROUNDDOWN(YEARFRAC(A1,TODAY()),0) and format it not to include decimals.

 

[Gary McMaster]

Perhaps this?

Private Sub txtDOB_AfterUpdate()

txtAGE.Text = Format(Date - CDate(txtDOB.Text), "yy")

End Sub

 

[joacro]

Hi Ben,

The txt boxes is on a userform

What code should i use

 

[BenMiller]

Ahh ... I don't know VBA at all .. Sorry

 

[joacro]

Gary,

Thanks a lot it is just perfect

 

[Gary McMaster]

Thanks a lot it is just perfect

If the individual doesn't live to be 100 or more!

Thanks for the feedback.

Gary