Calculate age when enter date in textbox

Bhavesh Vankar

5y1.4kVisual Basic .NET

calculate age and display in textbox when DOB enter in textbox.

example..

Textbox 1 is for DOB

Textbox 2 is for Age

When user enter DOB in textbox 1 age should be auto display in Textbox 2 using vb6.0.

13 Replies

Know the answer? Post it — somebody with the same question will find it here.

Siddharth Gajbhiye5y ago
1. function fnCalculateAge(){
3. var userDateinput = document.getElementById("txtDOB").value;
4. console.log(userDateinput);
6. // convert user input value into date object
7. var birthDate = new Date(userDateinput);
8. console.log(" birthDate"+ birthDate);
10. // get difference from current date;
11. var difference=Date.now() - birthDate.getTime();
13. var ageDate = new Date(difference);
14. var calculatedAge= Math.abs(ageDate.getUTCFullYear() - 1970);
15. alert(calculatedAge);
HTML Code
"date" id="txtDOB" />

"btnCalculate" onclick="fnCalculateAge();" >Calculate Age
Here in this method, we add an input textbox and button tag. On button click, we call javascript function which gets the date from the input textbox and calculates age.

Javascript function to calculate age from date of birth

DEMO Link :https://codepedia.info/editor-example?id=40

Sanjay Kumar5y ago

Hi Bhavesh sir

actually I am using one date picker and one Textbox,

and age calculating is on datepicker_Changed , when you will choose the date then calculate age under datepicker_Changed then display age in Textbox.

Rijwan Ansari5y ago

Hi,

for age in year

DateDiff("yyyy", Now, TheDate)

https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/datediff-function

Rijwan Ansari5y ago

Hi Bhavesh,

for vb can you try this.

intNumOfDays = DateDiff("d", Date1, Date2) // d for days

Bhavesh Vankar5y ago

in vb6.0 its not working i have search many things but still not getting because vb6.0 its too old and i have no idea proper

lets explain me in brief....

suppose i have a one textbox1

if i enter date like 23/03/1992

then the age should be display in Textbox2 as answer 29.

but this all should be in vb6.0 how to write this in vb.

Satya Karki5y ago

Hi,

Check this function;

public int CalculateAgeCorrect(DateTime birthDate)
{
Datetime now = Datetime.Now;
int age = now.Year - birthDate.Year;
if (now.Month < birthDate.Month || (now.Month == birthDate.Month && now.Day < birthDate.Day))
age--;
return age;
}

Rijwan Ansari5y ago

Hi,

use this simple function

// This will handle leap years as well
public int CalculateAgeCorrect2(DateTime birthDate)
{
DateTime now = DatTime.Now;
int age = now.Year - birthDate.Year;
// For leap years we need this
if (birthDate > now.AddYears(-age))
age--;
// Don't use:
// if (birthDate.AddYears(age) > now)
// age--;
return age;
}

Bhavesh Vankar5y ago

in below code the datediff and interval are not working in. and i have used textbox for the date. their is manual date entry in textbox not used datetime picker its time consuming for my application

Dim yr As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now)
Dim month As Integer = DateDiff(DateInterval.Month, DateTimePicker1.Value, Now) Mod 12
' Dim day As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, Now) Mod 30 - 10
TextBox1.Text = yr & " Years, " & month & " Months "

Sanjay Kumar5y ago

Hello sir,

you can use this code to calculate age

this is my code

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

Dim yr As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now)

Dim month As Integer = DateDiff(DateInterval.Month, DateTimePicker1.Value, Now) Mod 12

' Dim day As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, Now) Mod 30 - 10

TextBox1.Text = yr & " Years, " & month & " Months "

End Sub

Bhavesh Vankar5y ago

sir i only want to display integer date like 50,41, 30, in numeric no....

suppose enter dob in Textbox1 01/04/2021 then in Textbox2 age should be display as 28..in visual basic 6.0

some lines discribe by you in vb6.0 not working.... kindly suggest vb6.0 solution for this...

Pankajkumar Patel5y ago

Hi Bhavesh Vankar,

You can use following function which accepts date of birth from and returns age in exact years, months and days:

Public Function ExactAge(BirthDate As Variant) As String
Dim yer As Integer, mon As Integer, d As Integer
Dim dt As Date
Dim sAns As String
If Not IsDate(BirthDate) Then Exit Function
dt = CDate(BirthDate)
If dt > Now Then Exit Function
yer = Year(dt)
mon = Month(dt)
d = Day(dt)
yer = Year(Date) - yer
mon = Month(Date) - mon
d = Day(Date) - d
If Sgn(d) = -1 Then
d = 30 - Abs(d)
mon = mon - 1
End If
If Sgn(mon) = -1 Then
mon = 12 - Abs(mon)
yer = yer - 1
End If
sAns = yer & " year(s) " & mon & " month(s) " & d _
& " day(s) old."
ExactAge = sAns
End Function

For more detail you can refer below article:

Calculate a Person's Exact Age
https://www.freevbcode.com/ShowCode.asp?ID=602

Hope, this will help you!

Jignesh Kumar5y ago

Hi Bhavesh,

Please use this one will help you,

Private Sub txtbox1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpBOfD.ValueChanged
Dim dateOfBirth As Date = Date.ParseExact(txtbox1.Text, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
txtbox2.Text = GetCurrentAge(dateOfBirth)
End Sub
Public Function GetCurrentAge(ByVal dob As Date) As Integer
Dim age As Integer
age = Today.Year - dob.Year
If (dob > Today.AddYears(-age)) Then age -= 1
Return age
End Function

Salman Beg5y ago

Check this link, https://www.sourcecodester.com/tutorials/visual-basic-net/6671/calculate-your-age-using-vbnet.html https://stackoverflow.com/questions/16874911/compute-age-from-given-birthdate