Curso <strong>de</strong> Introdução a Plata<strong>forma</strong> .Net FrameWork SDK Exempl<strong>os</strong> e Exercíci<strong>os</strong> Exemplo 01 – Função Format( ). Imports System Imports Micr<strong>os</strong>oft.VisualBasic Imports Micr<strong>os</strong>oft.VisualBasic.Strings Module FormNewDataVB Sub Main( ) Dim VarDataNow As DateTime = DateTime.Now Dim VarM<strong>os</strong>tra As String Console.WriteLine(" ---- Função FormatDateTime ---- ") VarM<strong>os</strong>tra = FormatDateTime(VarDataNow, DateFormat.GeneralDate) Console.WriteLine("DateFormat.GeneralDate = "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = FormatDateTime(VarDataNow, DateFormat.ShortDate) Console.WriteLine("DateFormat.ShortDate = "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = FormatDateTime(VarDataNow, DateFormat.LongDate) Console.WriteLine("DateFormat.LongDate = "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = FormatDateTime(VarDataNow, DateFormat.ShortTime) Console.WriteLine("DateFormat.ShortTime = "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = FormatDateTime(VarDataNow, DateFormat.LongTime) Console.WriteLine("DateFormat.LongTime = "& VarM<strong>os</strong>tra) Console.WriteLine( ) Console.WriteLine(" ---- Função Format ---- ") VarM<strong>os</strong>tra = Format(VarDataNow, "dd") Console.WriteLine("Format(VarDataNow, 'dd') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "ddd") Console.WriteLine("Format(VarDataNow, 'ddd') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "dddd") Console.WriteLine("Format(VarDataNow, 'dddd') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "M") Console.WriteLine("Format(VarDataNow, 'M') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "MMMM") Console.WriteLine("Format(VarDataNow, 'MMMM') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "y") Console.WriteLine("Format(VarDataNow, 'y') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "yyyy") Console.WriteLine("Format(VarDataNow, 'yyyy') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "hh") Console.WriteLine("Format(VarDataNow, 'hh') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "HH") Console.WriteLine("Format(VarDataNow, 'HH') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "mm") Console.WriteLine("Format(VarDataNow, 'mm') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "ss") Console.WriteLine("Format(VarDataNow, 'ss') : "& VarM<strong>os</strong>tra) Console.WriteLine( ) Console.WriteLine(" ---- Format<strong>os</strong> Personalizad<strong>os</strong> ---- ") VarM<strong>os</strong>tra = Format(VarDataNow, "dd/MM/yyyy") Console.WriteLine("Format(VarDataNow, 'dd/MM/yyyy') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "dddd dd/MMMM/yyyy") Console.WriteLine("Format(VarDataNow, 'dddd dd/MMMM/yyyy') : "& VarM<strong>os</strong>tra) VarM<strong>os</strong>tra = Format(VarDataNow, "ddd/MMM/yy HH:mm:ss") Console.WriteLine("Format(VarDataNow, 'ddd/MMM/yy HH:mm:ss') : "& VarM<strong>os</strong>tra) End Sub End Module 76
Curso <strong>de</strong> Introdução a Plata<strong>forma</strong> .Net FrameWork SDK Veja a saída do programa - exemplo 01. 77