Visual Basic 6 - Escrevendo por extenso os valores monetários


O projeto abaixo mostra como usar a função que escreve por extenso valores monetários:

Código da função que escreve os valores numéricos por extenso em português : clique aqui

O exemplo funciona assim:

1-Digite um valor ( valores menores que 9999999.99 ) no controle MaskeditBox (maskvalor)

2-Clique no botão Escreve Extenso. Ao fazer isto a função extenso é chamada passando como parâmetro o valor digitado no controle. O código é o seguinte:

Private Sub Command1_Click()
      Call Extenso(CDbl(Maskvalor))  'Extenso(Valor)
End Sub

Código do botão Limpar Valores:

Private Sub Command2_Click()
    Maskvalor.Text = ""
    Text2.Text = ""
    Maskvalor.SetFocus
End Sub

Simples e prático como o Visual Basic.


Veja os Destaques e novidades do SUPER DVD VB (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#
 

   Gostou ?   Compartilhe no Facebook    Compartilhe no Twitter

Referências:


José Carlos Macoratti