Imports System

Imports System.Globalization

​

Public Class Program

    Public Shared Sub Main()

​

        Dim provider As CultureInfo = CultureInfo.InvariantCulture

        Dim format As String

        Dim dateString As String

        Dim result As DateTime

        Dim dateTime As DateTime

        Dim standardFmts As String() = {"d", "D", "f", "F", "g", "G", "m", "o", "R", "s", "t", "T", "u", "U", "y"}

        Dim customFmts As String() = {"yyyy/MM/dd", "h:mm:ss.ff t", "d MMM yyyy", "HH:mm:ss.f", "dd MMM HH:mm:ss", "\Mon\t\h\: M", "HH:mm:ss.ffffzzz"}

​

        Try

            Console.WriteLine("Today's date is {0}.", Date.Today.ToString("MM/dd/yy", CultureInfo.InvariantCulture))

        'dateTime = New DateTime(2017, 3, 23, 21, 15, 07)

        dateString = "3/23/2017 7:34:23 PM"

        'dateTime = DateTime.ParseExact(dateString, "MM/dd/yyyy hh:mm:ss tt", provider)

        dateTime = DateTime.Parse(dateString, provider)

            For Each standardFmt As String In standardFmts

                Console.WriteLine("{0}: {1}", standardFmt, dateTime.ToString(standardFmt))

            Next

            Console.WriteLine()

​

​

            For Each customFmt As String In customFmts

            Console.WriteLine("'{0}': {1}", customFmt, dateTime.ToString(customFmt))

            Next

        Catch __unusedFormatException1__ As FormatException

            Console.WriteLine("{0} is not in the correct format.", dateString)

        Catch ex As Exception

                Console.WriteLine(dateTime)

        End Try

    End Sub

End Class

​