Converter Numerico Em Pesos Argentinos

[gabrielhw]

Bom dia.

 

Não sei se essa é a area correta, Bom acbr diversos então ... 

 

Alguem conhece alguma função que converta um numerico em 1000 em extenso?

 

Exemplo: Pegar 1 = Uno.

[Régys Silveira]

Movido para o local correto do fórum.

[Régys Silveira]

O ACBr possui o componente ACBrExtenso, você tomar ele por base para fazer o seu extenso personalizado para pesos.

[gabrielhw]

Obrigado regys,

Transformar em esphanol fiz, relativamente facil.

O que esta pegando é as regras gramaticais do espanhol argentino.

function ConversaoRecursivaEsp(N: LongWord): string;
begin
  case N of
    1..19:
      Result := Unidads[N];
    20, 30, 40, 50, 60, 70, 80, 90:
      Result := Decenas[N div 10] + ' ';
    21..29, 31..39, 41..49, 51..59, 61..69, 71..79, 81..89, 91..99:
      Result := Decenas[N div 10] + ' Y ' + ConversaoRecursivaEsp(N mod 10);
    100, 200, 300, 400, 500, 600, 700, 800, 900:
      Result := Cientenas[N div 100] + ' ';
    101..199:
      Result := ' CIENTO ' + ConversaoRecursivaEsp(N mod 100);
    201..299, 301..399, 401..499, 501..599, 601..699, 701..799, 801..899, 901..999:
      Result := Cientenas[N div 100] + ' E ' + ConversaoRecursivaEsp(N mod 100);
    1000..999999:
      Result := ConversaoRecursivaEsp(N div 1000) + ' MIL ' + ConversaoRecursivaEsp(N mod 1000);
    1000000..1999999:
      Result := ConversaoRecursivaEsp(N div 1000000) + ' MILLÓN '+ ConversaoRecursivaEsp(N mod 1000000);
    2000000..999999999:
      Result := ConversaoRecursivaEsp(N div 1000000) + ' MILLÓN '+ ConversaoRecursivaEsp(N mod 1000000);
    1000000000..1999999999:
      Result := ConversaoRecursivaEsp(N div 1000000000) + ' BILLÓN ' + ConversaoRecursivaEsp(N mod 1000000000);
    2000000000..4294967295:
      Result := ConversaoRecursivaEsp(N div 1000000000) + ' BILLÓN ' + ConversaoRecursivaEsp(N mod 1000000000);
  end;
end;

[EMBarbosa]

Eu não entendi qual a dificuldade...

Mas veja aí esse fórum, tem até um componente para isso. http://www.clubdelphi.com/foros/showthread.php?t=16603