Mega Code Archive

 

Categories / VB.Net / Date Time

 

Compares two Date values

Imports System.Globalization Module MainClass    Public Sub Main()         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"                  Else            relationship = "is later than"         End If                  Console.WriteLine("{0} {1} {2}", date1, relationship, date2)    End Sub End Module