Imports System

Public Module Module1

    Public Sub Main()

        'uma data qualquer

        Dim DataValor As New DateTime(2008, 6, 15, 21, 15, 7)

​

        'formatos standard(padrões)

        Dim standardFmts As String() = {"d", "D", "f", "F", "g", "G", _

            "m", "o", "R", "s", "t", "T", _

            "u", "U", "y"}

​

        'Exibindo a data usando todos os formatos standard  

        For Each standardFmt As String In standardFmts

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

    Next

    Console.WriteLine()

​

    'formatos customizados

    Dim customFmts As String() = {"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"}

​

    'exibindo a data em formatos customizados

    For Each customFmt As String In customFmts

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

Next

​

    End Sub

End Module