Imports System

Public Module Module1

    Public Sub Main()

        ' Simple slash format

        Dim time As DateTime = DateTime.Parse("11/18/2020")

        Dim today As DateTime = DateTime.Today()

        Console.WriteLine("parsed: " + time)

        Console.WriteLine("today: " + today)

        If (time >= today) Then

            Console.WriteLine("good date")

        Else

            Console.WriteLine("bad date")

        End If

    End Sub

End Module

​

​