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