Module ConversionToDateTime
Public Sub Main()
Dim dateString As String = Nothing
dateString = "05/01/2010"
ConvertToDateTime(dateString)
dateString = "Tue Apr 28, 2010"
ConvertToDateTime(dateString)
dateString = "Wed Apr 28, 2010"
ConvertToDateTime(dateString)
dateString = "06 July 2010 7:32:47 AM"
ConvertToDateTime(dateString)
dateString = "17:32:47.003"
ConvertToDateTime(dateString)
dateString = "Sat, 10 May 2010 14:32:17 GMT"
ConvertToDateTime(dateString)
End Sub
Private Sub ConvertToDateTime(value As String)
Dim convertedDate As Date
Try
convertedDate = Convert.ToDateTime(value)
Console.WriteLine("'{0}' converts to {1}.", value, convertedDate)
Catch e As FormatException
Console.WriteLine("'{0}' is not in the proper format.", value)
End Try
End Sub
End Module