Verificando se uma data é maior, menor ou igual a outra

'Este exemplo mostra como verificar se uma data é
'maior, menor ou igual a outra

Module Module1
  Sub Main()
    'ano, mês, dia, horas, minutos, segundos
    Dim data1 As New DateTime(2007, 5, 28, 17, 20, 5)
    'ano, mês, dia, horas, minutos, segundos
    Dim data2 As New DateTime(2007, 5, 4, 8, 12, 10)

    If data1 < data2 Then
      Console.WriteLine("data1 é menor que data2")
    ElseIf data1 = data2 Then
      Console.WriteLine("As duas datas são iguais")
    Else
      Console.WriteLine("data1 é maior que data2")
    End If

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module