Imports System.Globalization
Module Example
Public Sub Main()
Dim dateValues() As String = { "30-12-2011", "12-30-2011",
"30-12-11", "12-30-11" }
Dim pattern As String = "MM-dd-yy"
Dim parsedDate As Date
For Each dateValue As String In dateValues
If DateTime.TryParseExact(dateValue, pattern, Nothing,
DateTimeStyles.None, parsedDate) Then
Console.WriteLine("Converted '{0}' to {1:d}.", dateValue, parsedDate)
Else
Console.WriteLine("Unable to convert '{0}' to a date and time.", dateValue)
End If
Next
End Sub
End Module