How to calculate days, months & years from two different dates using VB.NET

Question

0.00/5 (No votes)

See more:

.NET4.5

I have a datetimepicker named (DTPEntryED) and textbox named (TxtLengthoSED). when i run the program and select any date for example 24/01/2012 and want to know the difference between that date and today i.e 15/07/2022 it gives me a result as (10 years, 126 months, 7671 days).

Kindly someone guide me where i went wrong in my code and how to get the correct result i.e (10 years, 05 months, 20 days).

Remember my project is in VB.Net

What I have tried:

Private Sub DTPEntryED_ValueChanged(sender As Object, e As EventArgs) Handles DTPEntryED.ValueChanged

    Dim yearValue As Integer
    Dim monthValue As Integer
    Dim dayValue As Integer
    yearValue = Math.Abs(DateDiff("yyyy", DTPEntryED.Value, Today))
    monthValue = Math.Abs(DateDiff("m", DTPEntryED.Value, DateAdd("y", yearValue, Today)))
    dayValue = Math.Abs(DateDiff("d", DTPEntryED.Value, DateAdd("m", monthValue, DateAdd("y", yearValue, Today))))
    TxtLengthoSED.Text = Format(yearValue, "00") & " years, " _
    & Format(monthValue, "00") & " months, " _
    & Format(dayValue, "00") & " days"

End Sub

Posted 14-Jul-22 19:17pm

Ali Khan 3

Updated 14-Jul-22 19:49pm

Add a Solution

1 solution

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)

OriginalGriff · Accepted Answer · 2022-07-14T19:49:00

Solution 1

Ignore Maths, and DateDiff: use a TimeSpan[^]
You are mixing up very old VB (VB6 and earlier!) constructs with the newer .NET versions, which is never a good idea.

If you subtract two DateTime values, you get a Timespan:

VB

Dim dt As DateTime = New DateTime(2022, 7, 15)
Dim diff As TimeSpan = dt - DateTime.Now
Console.WriteLine(diff)

The TimeSpan struct includes a Duration method, which returns the absolute value of a Timespan:

VB

Dim dt As DateTime = New DateTime(2022, 7, 15)
Dim diff As TimeSpan = (dt - DateTime.Now).Duration()
Console.WriteLine(diff)

Posted 14-Jul-22 19:49pm

OriginalGriff

Comments

Ali Khan 3 15-Jul-22 2:13am

Dear OriginalGriff can you please send the complete code for my datetimepicker.valuechanged event as i am very new in programming and can't fully understand how cant get the result in my textbox using the above code you told me... Thanks

OriginalGriff 15-Jul-22 3:41am

Certainly! Where would you like me to send the pro forma invoice?

This is not a "do my code for me" service: while we are more than willing to help those that are stuck, that doesn't mean that we are here to do it all for you! We can't do all the work, you are either getting paid for this, or it's part of your grades and it wouldn't be at all fair for us to do it all for you.

So we need you to do the work, and we will help you when you get stuck. That doesn't mean we will give you a step by step solution you can hand in!
Start by explaining where you are at the moment, and what the next step in the process is. Then tell us what you have tried to get that next step working, and what happened when you did.

If you are having problems getting started at all, then this may help: How to Write Code to Solve a Problem, A Beginner's Guide[^]