Public Class MainClass
Public Shared Sub Main()
System.Console.WriteLine(IsDate("your input"))
End Sub
Public Shared Function IsDate(ByVal DateIn As String) As Boolean
Dim datDateTime As DateTime
Dim blnIsDate As Boolean = True
Try
datDateTime = DateTime.Parse(DateIn)
Catch e As FormatException
blnIsDate = False
End Try
Return blnIsDate
End Function
End Class
|