Calculate age in textbox

Question

1.00/5 (1 vote)

See more:

i have used above code to calculate age of person. but its getting me error. Type mismatched when i enter any value in textbox i have wrote this code like as below...

i want to display age in textbox when user enter date of birth in textbox like 01/02/1985. age should be display in textbox. how to do this. ?

What I have tried:

Private Sub txtdateofBirth_Change()
If txtcurrentDate.Text Is Date Then
    txtdateofBirth.Text = DateDiff(DateInterval.Year, Now, CDate(txtcurrentDate.Text)).ToString
    End If
End Sub

Posted 5-Apr-21 3:20am

Bhavesh Vankar

Updated 6-Apr-21 3:35am

Add a Solution

Comments

Richard Deeming 6-Apr-21 9:27am

NB: A person's age is not simply the difference between the year of birth and the current year.

Consider a baby born on 31st December 2020; are they one year old on 1st January 2021?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Answer 1 · 2021-04-05T03:35:00

VB

If txtcurrentDate.Text Is Date Then

You cannot do that; txtcurrentDate.Text is always a String, never a Date. You need to parse the string to a Date object using the CDate function. I have never used VB6 and since it went out of support some 20 years ago it is not a good choice of language. Switch to VB.NET which is a much better, and fully supported, language.

CHill60 · Answer 2 · 2021-04-06T03:35:00

You have tagged your question VB6 yet you appear to be trying to use VB.NET constructs - ToString and DateInterval.Year.
I am going to assume that you are indeed using VB.NET - either way you will need to use the IsDate function

E.g.

VB

Private Sub txtdateofBirth_Change()
     If IsDate(txtcurrentDate.Text) Then
        txtdateofBirth.Text = DateDiff(DateInterval.Year, Now, CDate(txtcurrentDate.Text)).ToString
    End If
End Sub

or in VB6 probably

VB

Private Sub txtdateofBirth_Change()
     If IsDate(txtcurrentDate.Text) Then
        txtdateofBirth.Text = Cstr(DateDiff(DateInterval.Year, Now, CDate(txtcurrentDate.Text)))
    End If
End Sub

I also think you have Now and your textbox date in the wrong order

Calculate age in textbox

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0