Ai pessoal será que alguem ai tem o código de uma função para retorna um valor
por extenso.
Obrigado
Fabrício
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
Olá Fabrício,
Aqui tem várias: http://tinyurl.com/5spot
E vários outros materiais sobre Delphi.
[]
Andrei
Em 01/11/05, Fabrício Pinheiro França[EMAIL PROTECTED] escreveu:
Ai pessoal será que alguem ai tem o código de uma função para retorna um
valor por extenso.
Obrigado
Fabrício
--
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Eu uso esta:
// -- Valor por extenso de um número
function Extenso(Valor: double; Singular, Plural: string): string;
var
Ind: integer;
Num: integer;
Code: integer;
Ve: array[0..11] of string;
Str_Valor: string;
3 matches
Mail list logo