Visual Basic: Compare dates

Platform:Visual Basic
Task:Compare dates
Use the DateTime.Compare() function to compare dates.
Dim date1 As Date = #08/01/2009 12:00AM#
Dim date2 As Date = #08/01/2009 12:00PM#
Dim result As Integer = DateTime.Compare(date1, date2)
Dim relationship As String

If result < 0 Then
   relationship = "is earlier than"
ElseIf result = 0 Then
   relationship = "is the same time as"         
   relationship = "is later than"
End If

'another better way is use a TimeSpan
Dim Result As TimeSpan
Result = CurrentSurveyDate - StartDate
Msgbox Result.Days
Back to Index