Imprime um valor por Extenso

Exemplo da Rotina:

Extenso(nValor)

Exemplo 1- Guardando em uma variável o valor em texto:

nValor := 500
cTexto := Extenso(nValor) //QUINHENTOS REAIS

Exemplo 2- Guardando em uma variável o valor em texto, mas de uma forma legível melhor:

nValor := 500
cTexto := Capital(Extenso(nValor)) //Quinhentos Reais

Exemplo 3- Guardando em uma variável o valor em texto sem o texto de reais (formato de quantidade), mas de uma forma legível melhor:

nValor := 2.87
cTexto := Capital(Extenso(nValor, .T.)) //Dois e Oitenta e Sete

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN