Imports System

Imports System.Linq

​

Public Module Module1

    Public Sub Main()

    ' "dates" to compare to

    Dim strDates() As String = {"2/11/2010", "8/15/1999", "02/11/2010",

                              "10/15/2001", "01/01/2012", "3/7/2013",

                              "10/21/2013", "09/19/2001", "9/13/2001"}

​

    Dim dtTest As String = "9/11/2001"

    Dim sRpt As String = "{0} {1} {2} ({3})"

    Dim sEval As String = ""

​

    For Each s As String In strDates

        ' actual <> evaluation

        If dtTest > s Then

            sEval = If(DateTime.Parse(dtTest) > DateTime.Parse(s), "OK", "Epic Fail")

        Else

            sEval = If(DateTime.Parse(dtTest) < DateTime.Parse(s), "OK", "Epic Fail")

        End If

​

        If dtTest > s Then

            Console.WriteLine(sRpt, dtTest, ">", s, sEval)

        Else

            Console.WriteLine(sRpt, dtTest, "<", s, sEval)

        End If

    Next

    ' date data in string form dont do math correctly

    Console.WriteLine("{0}Max strDate is(not) {1}", Environment.NewLine, strDates.Max())

    End Sub

End Module