Valor monetário por extenso

Passei a madrugada criando uma função que recebe um valor numérico (real) e retorna uma string com aquele valor por extenso na moeda nacional.

Acabei fazendo ainda uma função que recebe também um valor real e retorna uma string com esse valor formatado para a moeda nacional (R$), com pontos separadores de milhar e vírgula para separar os centavos.

Acompanham ainda os códigos-fonte e um simples programa para testar, também com fonte e binários para MS-DOS, compilado pelo Borland Turbo Pascal, e para GNU/Linux, compilado pelo Free Pascal 2.0.4. A unit moedas deve ser perfeitamente utilizável também no Borland Delphi e no Lazarus.

Este software é livre e licenciado sob a GNU GPL (veja detalhes).

Se você utilizou de qualquer maneira este trabalho, por favor, faça comentários e deixe-me ter a satisfação de saber.

• extenso.tar.gz, 84kB

<!–

–>

Atualização (2007-10-17):

Agora o projeto está hospedado no SourceForge. É possível obter e/ou contribuir com o código-fonte através do sistema Subversion (https://mextenso.svn.sourceforge.net/svnroot/mextenso).