Class DateTimeParser
Public Shared Sub Main()
Dim dateStrings() As String = {"2010-05-01T07:34:42-5:00", _
"2010-05-01 7:34:42Z", _
"Thu, 01 May 2008 07:34:42 GMT"}
For Each dateString As String In dateStrings
Dim convertedDate As Date = Date.Parse(dateString)
Console.WriteLine("Converted {0} to {1} time {2}.", _
dateString, _
convertedDate.Kind.ToString(), _
convertedDate)
Next
End Sub
End Class
|