Aprenda de uma forma simples , objetiva e direta os ... - Macoratti.net
Aprenda de uma forma simples , objetiva e direta os ... - Macoratti.net
Aprenda de uma forma simples , objetiva e direta os ... - Macoratti.net
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Curso <strong>de</strong> Introdução a Plata<strong>forma</strong> .Net FrameWork SDK<br />
Exempl<strong>os</strong> e Exercíci<strong>os</strong>.<br />
Exemplo 01 – Format<strong>os</strong> genéric<strong>os</strong> e personalizad<strong>os</strong>.<br />
Imports System<br />
Imports Micr<strong>os</strong>oft.VisualBasic.Strings<br />
Module FormatVB<br />
Sub Main()<br />
Dim VarValor As Double = 15252.8573<br />
Dim VarM<strong>os</strong>tra As String<br />
Console.WriteLine("---- Format Padrão ----")<br />
VarM<strong>os</strong>tra = Format(VarValor, "g")<br />
Console.WriteLine(" Format(VarValor, 'g'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "c")<br />
Console.WriteLine(" Format(VarValor, 'c'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "e")<br />
Console.WriteLine(" Format(VarValor, 'e'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "n")<br />
Console.WriteLine(" Format(VarValor, 'n'): "& VarM<strong>os</strong>tra)<br />
Console.WriteLine( )<br />
Console.WriteLine("---- Format Padrão com casas Decimais ----")<br />
VarM<strong>os</strong>tra = Format(VarValor, "g5")<br />
Console.WriteLine(" Format(VarValor, 'g5'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "c2")<br />
Console.WriteLine(" Format(VarValor, 'c2'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "e1")<br />
Console.WriteLine(" Format(VarValor, 'e1'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "n3")<br />
Console.WriteLine(" Format(VarValor, 'n3'): "& VarM<strong>os</strong>tra)<br />
Console.WriteLine( )<br />
Console.WriteLine("---- Format Personalizado ----")<br />
VarM<strong>os</strong>tra = Format(VarValor, "000###.0000###,###")<br />
Console.WriteLine(" Format(VarValor,‘00###.0000###,###'): "& VarM<strong>os</strong>tra)<br />
VarM<strong>os</strong>tra = Format(VarValor, "(0##) 00 - 000")<br />
Console.WriteLine(" Format(VarValor, '(0##) 00 - 000'): "& VarM<strong>os</strong>tra)<br />
VarValor = 0.25<br />
VarM<strong>os</strong>tra = Format(VarValor, "0#.00%")<br />
Console.WriteLine(" Format(VarValor, '0#.00%'): "& VarM<strong>os</strong>tra)<br />
End Sub<br />
End Module<br />
64