How to calculate birthdate from age (day , month , year) and current date in VB.NET

Question

1.00/5 (1 vote)

See more:

How to calculate birthdate based on age (day , month ,year) and current date
I tried this but the result appears incorrect

sample is

What I have tried:

Dim day, month, year As String
       day = txtday.Text
       month = txtMonth.Text
       year = txtYear.Text
       Dim intday, intmonth, intyear As Double
       intday = NumDay.Value
       intmonth = NumMonth.Value
       intyear = NumYear.Value
       intyear = Now.Year - intyear
       If Now.Day > intday Then
           intday = Now.Day - intday
       Else
           intday = 30 - intday
       End If
       If intday > 30 Then
           intday = intday - 30
           intmonth = (Now.Month + 1) - intmonth
       Else
           intmonth = Now.Month - intmonth

       End If
       Dim dateResult As New Date(CInt(intyear), CInt(intmonth), CInt(intday))

       DateTimePicker1.Value = dateResult

Posted 3-Aug-22 10:42am

mazen mougi

Updated 3-Aug-22 18:47pm

v2

Add a Solution

Comments

Afzaal Ahmad Zeeshan 3-Aug-22 19:16pm

What the result is, and what you expected?

mazen mougi 3-Aug-22 22:27pm

I can get age from birth date correctly but getting birth date from age, result appear different than origin birth date
The result different in days

1 solution

Add a Solution

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

OriginalGriff · Answer 1 · 2022-08-03T18:47:00

Solution 1

Why are you using obsolete VB6 data types?
If you use the DateTime class that has been in VB.NET since 2002 it's pretty easy:

VB

Dim ageYears As Integer = 21
Dim ageMonths As Integer = 3
Dim ageDays As Integer = 22
Dim dob As DateTime = DateTime.Now.AddYears(-ageYears).AddMonths(-ageMonths).AddDays(-ageDays)
Console.WriteLine(dob)

Posted 3-Aug-22 18:47pm

OriginalGriff

Comments

Maciej Los 4-Aug-22 11:18am

5ed!

Richard Deeming 5-Aug-22 9:54am

It's not a VB6 type - Date is the VB.NET alias for System.DateTime, just as int is the C# alias for System.Int32. :)

How to calculate birthdate from age (day , month , year) and current date in VB.NET

1 solution

Solution 1

Add your solution here

Preview 0

How to calculate birthdate from age (day , month , year) and current date in VB.NET

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us