Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Visual Basic 6 e funções - Parte II

Aula 28

Neste módulo vamos estudar algumas funções do VB que tem o objetivo de formatar os dados que serão exibidos em um determinado sistema.

FUNÇÃO FORMATCURRENCY

Esta função tem o objetivo de formatar um determinado numero ou variável numérica para que seu conteúdo seja exibido em formato de moeda. A sintaxe deste comando é:

FormatCurrency (valor, número_casas_decimais,true1 ou false1, true2 ou false2, true3 ou false3)

Sendo que:

O true1 ou false1 indica se você quer ou não que sejam exibidos zeros à esquerda de uma virgula decimal.

O true2 ou false2 indica se você quer ou não que o valor seja colocado dentro de parênteses no caso de número negativo.

O true3 ou false3 indica se você quer ou não separar as casas de milhar.

FUNÇÃO FORMATNUMBER

Esta função tem o objetivo de formatar um determinado número ou variável numérica no que se diz respeito a forma pela qual o valor deste será exibido. é idêntica a função FORMATCURRENCY, porém não trata os valores como sendo moeda e sim simplesmente números formatados. Sua sintaxe é idêntica a função FORMATCURRENCY.

FormatNumber (valor, número_casas_decimais,true1 ou false1, true2 ou false2, true3 ou false3)

Sendo que:

O true1 ou false1 indica se você quer ou não que sejam exibidos zeros à esquerda de uma virgula decimal.

O true2 ou false2 indica se você quer ou não que o valor seja colocado dentro de parênteses no caso de número negativo.

O true3 ou false3 indica se você quer ou não separar as casas de milhar.

Para melhor compreender as duas funções acima, vamos gerar um pequeno exemplo:

1. Inicie o VB e solicite uma nova aplicação;
2. Inclua na parte superior do FORM um Label e ao lado um TextBox;
3. Altere a propriedade CAPTION do label para "Entre com um número";
4. Apague o conteúdo TEXT do componente TEXTBOX;
5. Inclua abaixo dos componentes dos passos anteriores dois CommandButton;
6. Altere a propriedade Caption do primeiro para "Formata em Moeda";
7. Altere a propriedade Caption do segundo para "Formata em número";
8. Ao final deste procedimento seu formulário terá o seguinte aspecto:

9. Vamos codificar o primeiro botão (formata em moeda). Dê um duplo clique sobre este e entre com a seguinte codificação:

Private Sub Command1_Click()
x = Val(Text1.Text)
MsgBox FormatCurrency(x, 2, vbTrue, vbTrue, vbTrue)
End Sub

O primeiro passo foi armazenar na variável "x", o valor do text1.text transformado em número, para isso usamos a função VAL, pois sabemos que o conteúdo de um TextBox sempre é String e para que possamos utilizar as funções FormatCurrency e Number, temos que ter um valor do tipo numérico.

Em seguida, criamos uma caixa de diálogo (MSGBOX) que irá conter o valor da variável "x", em formato de moeda (formatcurrency), com duas casas decimais, com zeros à esquerda da virgula decimal, sendo um número negativo este será apresentado entre parênteses e com separador de casas decimais.

10. Vamos agora codificar o segundo botão (formata em número). Dê um clique duplo sobre este e entre com a seguinte codificação:

Private Sub Command2_Click()
x = Val(Text1.Text)
MsgBox FormatNumber(x, 2, vbTrue, vbTrue, vbTrue)
End Sub

Em seguida, criamos uma caixa de diálogo (MSGBOX) que irá conter o valor da variável "x", em formato de número (formatNumber), com duas casas decimais, com zeros à esquerda da virgula decimal, sendo um número negativo este será apresentado entre parênteses e com separador de casas decimais.

Execute agora nosso pequeno projeto, e entre com o seguinte número: 123456,58. Em seguida, dê um clique em cada um dos botões para ver o resultado. A sequência do resultado é exibida nos gráficos a seguir:

Neste primeiro passo entramos com o valor solicitado.

Aqui está sendo exibida a janela que será mostrada na sua tela quando clicar sobre o botão "formata em moeda".

Aqui está sendo exibida a janela que será mostrada na sua tela quando clicar sobre o botão "formata em número".

Coloque agora um sinal de negativo ao lado do número do TextBox e repita a operação, você irá perceber que os números serão exibidos dentro de parênteses.

Voltar