Calculate age when enter date in textbox

Question

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.

Rijwan Ansari · Answer

Hi Bhavesh, for vb can you try this. intNumOfDays = DateDiff( "d" , Date1, Date2) // d for days

Pankaj Patel · Answer

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!

Siddharth Gajbhiye · Answer

function fnCalculateAge(){ var userDateinput = document.getElementById( "txtDOB" ).value; console.log(userDateinput); // convert user input value into date object var birthDate = new Date(userDateinput); console.log( " birthDate" + birthDate); // get difference from current date; var difference=Date.now() - birthDate.getTime(); var ageDate = new Date(difference); var calculatedAge= Math.abs(ageDate.getUTCFullYear() - 1970); 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

Rijwan Ansari · Answer

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; }

Sanjay Kumar · Answer

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 Ansari · Answer

Hi, for age in year DateDiff( "yyyy" , Now, TheDate) https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/datediff-function

Bhavesh Vankar · Answer

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 Karki · Answer

Hi, Check this function; public int CalculateAgeCorrect(DateTime birthDate) { Datetime now = Datetime.Now; int age = now.Year - birthDate.Year; if (now.Month age--; return age; }

Bhavesh Vankar · Answer

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 Kumar · Answer

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 Vankar · Answer

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...

Jignesh Kumar · Answer

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 Beg · Answer

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