calculating of age by year,months and day in vb.net

Question

0.00/5 (No votes)

See more:

Hello, i am a beginner in visual basic .net 2008 i want to ask something..

i have a 3 combo box which is intended for Month,Day and Year and three textboxes for the result and 1 button for the compute. the year is from 1950 upto 2012

i have some code but i is very hard coded because you must put it one by one.. anyone can help? thank you and God bless.

here is my sample code..

VB

 If ComboBox1.SelectedItem = "January" And ComboBox2.SelectedItem = "1" And ComboBox3.SelectedItem = "1950" Then
           
            TextBox1.Text = Val(29) - 1
            TextBox2.Text = (7)-1
            TextBox3.Text = Val(2012) - 1950

end if

which is the output is 62 years old 28 days and 6 months..
i want to make it simple and short..
~~end sub~~

how can i make my code short..

Posted 31-Jul-12 18:50pm

ceryhel

Updated 31-Jul-12 18:57pm

Sebastian T Xavier

v2

Add a Solution

Comments

enhzflep 1-Aug-12 1:05am

Gday there,
Not sure about VB.NET, I'd have to check. With php and C, we have functions that can return time as an integer number of seconds that have elapsed since a particular day/date.
So, we can set day/month/year in human terms and get back an integer. We can then set a different data and get back a different integer. We can then simply subtract one from the other to get the amount of time elapsed in between them.

This is how, for instance CP forums may show a post as being made X seconds ago, or Y minutes ago, or Z days ago - or just simply as a date.

The functions also conveniently account for leap-years, etc.

I think it may even work like that in VB.NET.

Create a new date using the current time. Then subtract 7 from this date and set it to a new date. If the 2nd date = 1 week ago, then you're in business.

4 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)

enhzflep · Answer 1 · 2012-07-31T19:55:00

Yup, seems that it does work like that. Here's something I threw together quickly.
You'll want to checkout the help for DateTime and TimeSpan

VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim format As String = "ddd d/MMM yyy HH:mm"
    Dim curTime As DateTime = DateTime.Now
    Dim birthDate As New System.DateTime(1900, 8, 8)
    Dim elapsed As TimeSpan


    TextBox1.Text = curTime.ToString(format)
    TextBox2.Text = birthDate.ToString(format)

    elapsed = curTime - birthDate

    TextBox3.Text = Int(elapsed.Days / 365.25)
End Sub

Displays:
Wed 1/Aug 2012 15:53
Wed 8/Aug 1900 00:00
111

Patil Kishor · Answer 2 · 2013-05-28T03:07:00

Try this Code...

VB

Dim dob As DateTime
      dob = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month,           DateTimePicker1.Value.Day)
       Dim tday As TimeSpan = DateTime.Now.Subtract(dob)
       Dim years As Integer, months As Integer, days As Integer
       months = 12 * (DateTime.Now.Year - dob.Year) + (DateTime.Now.Month - dob.Month)

       If DateTime.Now.Day < dob.Day Then
           months -= 1
           days = DateTime.DaysInMonth(dob.Year, dob.Month) - dob.Day + DateTime.Now.Day
       Else
           days = DateTime.Now.Day - dob.Day
       End If
       years = Math.Floor(months / 12)
       months -= years * 12
       MsgBox("Your age as on " & Format(Now, "dd-MMM-yyyy") & vbCrLf & years & " Years, " & months & " Months and " & days & " Days")

graciax8 · Answer 3 · 2012-07-31T20:45:00

try this one.

VB

Sub calculateAge(ByVal birthDate As Date)
Dim mySpan As Int16 = CInt(Date.Now.Subtract(birthDate).TotalDays)
Dim nowYear As Int16 = Date.Now.Year
Dim nowMonth As Int16 = Date.Now.Month
Dim birthYear As Int16 = birthDate.Year
Dim birthMonth As Int16 = birthDate.Month

Dim yearCount As Int16
For yearCount = Date.Now.Year To birthYear Step -1
If yearCount Mod 4 = 0 Then
Select Case True
Case yearCount = nowYear And nowMonth < 3
'This is a leap year but we're not past Feb yet
'Do nothing
Case yearCount = birthYear And birthMonth > 2
'They were born after Feb in a leap year
'Do nothing
Case Else
'This was a full leap year, subtract a day to make it 365
mySpan -= 1
End Select
End If
Next

Dim myYears As Int16 = mySpan / 365
Dim myDays As Int16 = mySpan - (myYears * 365)
If myDays < 0 Then
myYears -= 1
myDays = 365 + myDays ' myDays is negative so this will subtract
End If

MessageBox.Show("You are " & myYears & " years and " & myDays & " days old.")
End Sub

ceryhel · Answer 4 · 2012-08-02T14:53:00

Solution 3

hello gracia8xx

i would like to appear the result in texboxes..i have 3 textbox which is intended for the result.. the first textbox is for years old,the second is for month old,and the third one is for days old..

my design is 3 comboboxes which is the first cbobox is for month,second is for day,and the third is for the year and i have one button for calculating..

thanks a lot.. God bless

Posted 2-Aug-12 14:53pm

ceryhel

Comments

enhzflep 2-Aug-12 23:33pm

ceryhel, you should add comments and remarks like this as a comment to a reply, not as a reply itself. Click the 'Have a Question or Comment' button at the bottom left of an answer to reply, or click "<-- Reply" on top right of a comment to do the same. As I suggested earlier, look in MSDN (or highlight in IDE and press f1) for help on DateTime and Timespan.
Here: DateTime and here: TimeSpan
As for your comment, you can see that the values all calculated and stored in mYears, mDays, you can work out how to get the months. Just display them in their own box, instead of gluing together as a string and showing in message box.

calculating of age by year,months and day in vb.net

4 solutions

Solution 1

Solution 4

Solution 2

Solution 3

Add your solution here

Preview 0