Imports System
Class CompareDates
Public Shared Sub Main()
Dim date1 As DateTime = New DateTime(2025, 6, 1)
Dim date2 As DateTime = New DateTime(2025, 6, 23)
Dim result As Integer = DateTime.Compare(date1, date2)
If result < 0 Then
Console.WriteLine("date1 is before date2")
Else
Console.WriteLine("date1 is not before date2")
End If
End Sub
End Class
' run:
'
' date1 is before date2
'