?
Solved

VB.NET Calculate Date Difference

Posted on 2008-10-10
9
Medium Priority
?
3,503 Views
Last Modified: 2012-05-05
I know there must be an easier way to calculate difference between dates or if one date is less than another.  Problem is I am trying to calculate a date in at text box against Date.Now.

This does not work.  
If CDate(Me.TextBox1.Text) < Date.Now Then
  MessageBox.Show("Date is less than" & Date.Now, "Date", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

This also does not work.  
Dim strDateDiff As String = DateDiff(DateInterval.Day.ToString(), Me.TextBox1.Text, Date.Now)

Any ideas?
0
Comment
Question by:CipherIS
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
9 Comments
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
ID: 22686457
Hi CipherIS,

Use the DateTime.Compare method -> http://msdn.microsoft.com/en-us/library/system.datetime.compare(VS.80).aspx

        If Date.Compare(CDate(Me.TextBox1.Text), Date.Now) < 0 Then
            MessageBox.Show("Date is less than" & Date.Now, "Date", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

Regards,

Wayne
0
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
ID: 22686474
I'd also be interested to know what you mean by "does not work". Is it producing any errors, or does it return unexpected results?

Wayne
0
 
LVL 1

Author Comment

by:CipherIS
ID: 22686508
It does not compare correctly so it always displays the message box.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 8

Expert Comment

by:tiagosalgado
ID: 22686546
Try to watch your date values and check if they are in same format. Maybe there is your problem.
0
 
LVL 1

Author Comment

by:CipherIS
ID: 22686562
Still does not worked.  Attached file.
Date.JPG
0
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
ID: 22686583
CipherIS,

If the textbox has todays date in it, it will always be less than Date.Now, because it also takes the time into account.

Wayne
0
 
LVL 48

Accepted Solution

by:
jpaulino earned 2000 total points
ID: 22686680
Try this method substracting the dates:
        Dim dt As New DateTime
 
        ' checks if it's a valid date
        If DateTime.TryParse(Me.TextBox1.Text, dt) Then
 
            ' Get's the number of days
            Dim days As Integer = dt.Subtract(Now.Date).TotalDays
 
            ' Writes the result
            Select Case days
                Case 0
                    Debug.WriteLine("TextBox1 = Now")
                Case Is > 0
                    Debug.WriteLine(String.Format("TextBox1 > Now in {0} days", days.ToString))
                Case Is < 0
                    Debug.WriteLine(String.Format("TextBox1 < Now in {0} days", days.ToString))
            End Select
 
        End If

Open in new window

0
 
LVL 1

Author Closing Comment

by:CipherIS
ID: 31504992
Works as expected
0
 
LVL 47

Expert Comment

by:Wayne Taylor (webtubbs)
ID: 22686812
CipherIS,

I'm curious why you selected jpaulino's suggestion over mine? I mentioned the reason why it was saying it was less than Date.Now at http:#a22686583

Wayne
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month11 days, 11 hours left to enroll

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question