Convertir de Numero(decimal) a letra

[darkbits]

Hola

estoy haciendo un sistema que necesito que me genere numero a letra, encontre varios ejemplos donde maneja solo enteros donde funciona bien en los review siempre hay polemica que no se usa asi etc..
no me recuerdo si el componente RXLib lo hacia, no recuerdo bien pero cuando utilizaba delphi 6 habia un componente q lo hacia, con un click ahora no lo encuentro ovio ya no debe funcionar con DX

necesito manejar asi 2398.23 DOS MIL TRECIENTO NOVENTA Y OCHO 23/100

agradezco si alguien me puede compartir su función que tiene implementada.

[Casimiro Notevi]

Empezado por darkbits

necesito manejar asi 2398.23 DOS MIL TRECIENTO NOVENTA Y OCHO 23/100

Número a letras, no puede ser eso, sino "Dos mil trescientos noventa y ocho con veintitres", ya que "23/100" son números.

[look]

Empezado por darkbits

Hola

estoy haciendo un sistema que necesito que me genere numero a letra, encontre varios ejemplos donde maneja solo enteros donde funciona bien en los review siempre hay polemica que no se usa asi etc..
no me recuerdo si el componente RXLib lo hacia, no recuerdo bien pero cuando utilizaba delphi 6 habia un componente q lo hacia, con un click ahora no lo encuentro ovio ya no debe funcionar con DX

necesito manejar asi 2398.23 DOS MIL TRECIENTO NOVENTA Y OCHO 23/100

agradezco si alguien me puede compartir su función que tiene implementada.

Código Delphi [-]
unit NumLet;

interface

uses
  Windows, Messages, SysUtils, Classes,Vcl.Dialogs;


    function NumeroALetras(Valor: longInt):string;
    function Conv : String;
    procedure Lee (Valor: longInt);
implementation

var
    N: longint;
    L:String;

procedure Lee(Valor: longint);
begin
  if (Valor >= 0) and (Valor <= 999999999) then
    N := Valor
  else
    N := 1;
  if (Valor < 0) then
    Showmessage('Debe Ser un Número Positivo!!');
  if (Valor > 999999999) then
    Showmessage('Lo siento, Esto es solo un entero ...');
end;

function conv: string;
var
  erro, unidades, dec, cent, salva, miles, decmil, centmil, mill, aux: longint;
  cad, cad2: string;

  function convierte(s: longint): string;
  begin
    case s of
      1:
        convierte := 'uno';
      2:
        convierte := 'dos';
      3:
        convierte := 'tres';
      4:
        convierte := 'cuatro';
      5:
        convierte := 'cinco';
      6:
        convierte := 'seis';
      7:
        convierte := 'siete';
      8:
        convierte := 'ocho';
      9:
        convierte := 'nueve';
      10:
        convierte := 'diez';
      11:
        convierte := 'once';
      12:
        convierte := 'doce';
      13:
        convierte := 'trece';
      14:
        convierte := 'catorce';
      15:
        convierte := 'quince';
      20:
        convierte := 'veinte';
      30:
        convierte := 'treinta';
      40:
        convierte := 'cuarenta';
      50:
        Convierte := 'cincuenta';
      60:
        convierte := 'sesenta';
      70:
        convierte := 'setenta';
      80:
        convierte := 'ochenta';
      90:
        convierte := 'noventa';
      100:
        convierte := 'cien';
      500:
        convierte := 'quinientos';
      700:
        convierte := 'setecientos';
      900:
        convierte := 'novecientos';
    end;
  end;

begin
 // if n >999999999999 then showmessage('Debe ser un número menor a un billón')
 // else
  begin
//  label1.caption:='';
    salva := n;
    aux := n div 1000000;
    mill := aux;
    n := n mod 1000000;
    aux := n div 100000;
    centmil := aux;
    n := n mod 100000;
    aux := n div 10000;
    decmil := aux;
    n := n mod 10000;
    aux := n div 1000;
    miles := aux;
    n := n mod 1000;
    aux := n div 100;
    cent := aux;
    n := n mod 100;
    aux := n div 10;
    dec := aux;
    n := n mod 10;
    aux := n;
    unidades := aux;
    cad := '';
    if mill > 0 then
      if mill = 1 then
        cad := 'un millon '
      else
      begin
        n := mill;
        cad := conv + ' millones ';
      end;
    n := salva;
 {empieza la conversión de las centenas de miles}
    cad2 := '';
    case centmil of
      1:
        if (miles = 0) and (decmil = 0) then
          cad2 := convierte(100)
        else
          cad2 := 'ciento ';
      2:
        cad2 := convierte(2) + 'cientos ';
      3:
        cad2 := convierte(3) + 'cientos ';
      4:
        cad2 := convierte(4) + 'cientos ';
      5:
        cad2 := convierte(500) + ' ';
      6:
        cad2 := convierte(6) + 'cientos ';
      7:
        cad2 := convierte(700) + ' ';
      8:
        cad2 := convierte(8) + 'cientos ';
      9:
        cad2 := convierte(900) + ' ';
    end;
    cad := cad + cad2;
   {Termina la conversión de las centenas}

  {empieza la conversión de las decenas y unidades de miles}
    cad2 := '';
    case decmil of
      0:
        if miles <> 1 then
          cad2 := convierte(miles);
      1:
        if miles <= 5 then
          cad2 := convierte(decmil * 10 + miles)
        else
          cad2 := 'dieci' + convierte(miles);
      2:
        if miles = 0 then
          cad2 := convierte(20)
        else if miles = 1 then
          cad2 := 'veintiun'
        else
          cad2 := 'veinti' + convierte(miles);
      3:
        if miles = 0 then
          cad2 := convierte(30)
        else if miles = 1 then
          cad2 := 'treinta y un'
        else
          cad2 := 'treinta y ' + convierte(miles);
      4:
        if miles = 0 then
          cad2 := convierte(40)
        else if miles = 1 then
          cad2 := 'cuarenta y un'
        else
          cad2 := 'cuarenta y ' + convierte(miles);
      5:
        if miles = 0 then
          cad2 := convierte(50)
        else if miles = 1 then
          cad2 := 'cincuenta y un'
        else
          cad2 := 'cincuenta y ' + convierte(miles);
      6:
        if miles = 0 then
          cad2 := convierte(60)
        else if miles = 1 then
          cad2 := 'sesenta y un'
        else
          cad2 := 'sesenta y ' + convierte(miles);
      7:
        if miles = 0 then
          cad2 := convierte(70)
        else if miles = 1 then
          cad2 := 'setenta y un'
        else
          cad2 := 'setenta y ' + convierte(miles);
      8:
        if miles = 0 then
          cad2 := convierte(80)
        else if miles = 1 then
          cad2 := 'ochenta y un'
        else
          cad2 := 'ochenta y ' + convierte(miles);
      9:
        if miles = 0 then
          cad2 := convierte(90)
        else if miles = 1 then
          cad2 := 'noventa y un'
        else
          cad2 := 'noventa y ' + convierte(miles);
    end;
    if (centmil > 0) and (decmil = 0) and (miles = 1) then
      cad2 := cad2 + 'un';
    if (miles > 0) or (decmil > 0) or (centmil > 0) then
      cad2 := cad2 + ' mil ';
    cad := cad + cad2;
    {termina la conversión de las decenas y unidades de miles}

 {empieza la conversión de las centenas}
    cad2 := '';
    case cent of
      1:
        if (unidades = 0) and (dec = 0) then
          cad2 := convierte(100)
        else
          cad2 := 'ciento ';
      2:
        cad2 := convierte(2) + 'cientos ';
      3:
        cad2 := convierte(3) + 'cientos ';
      4:
        cad2 := convierte(4) + 'cientos ';
      5:
        cad2 := convierte(500) + ' ';
      6:
        cad2 := convierte(6) + 'cientos ';
      7:
        cad2 := convierte(700) + ' ';
      8:
        cad2 := convierte(8) + 'cientos ';
      9:
        cad2 := convierte(900) + ' ';
    end;
    cad := cad + cad2;
   {Termina la conversión de las centenas}

  {empieza la conversión de las decenas y unidades}
    cad2 := '';
    case dec of
      0:
        cad2 := convierte(unidades);
      1:
        if unidades <= 5 then
          cad2 := convierte(dec * 10 + unidades)
        else
          cad2 := 'dieci' + convierte(unidades);
      2:
        if unidades = 0 then
          cad2 := convierte(20)
        else
          cad2 := 'veinti' + convierte(unidades);
      3:
        if unidades = 0 then
          cad2 := convierte(30)
        else
          cad2 := 'treinta y ' + convierte(unidades);
      4:
        if unidades = 0 then
          cad2 := convierte(40)
        else
          cad2 := 'cuarenta y ' + convierte(unidades);
      5:
        if unidades = 0 then
          cad2 := convierte(50)
        else
          cad2 := 'cincuenta y ' + convierte(unidades);
      6:
        if unidades = 0 then
          cad2 := convierte(60)
        else
          cad2 := 'sesenta y ' + convierte(unidades);
      7:
        if unidades = 0 then
          cad2 := convierte(70)
        else
          cad2 := 'setenta y ' + convierte(unidades);
      8:
        if unidades = 0 then
          cad2 := convierte(80)
        else
          cad2 := 'ochenta y ' + convierte(unidades);
      9:
        if unidades = 0 then
          cad2 := convierte(90)
        else
          cad2 := 'noventa y ' + convierte(unidades);
    end;
    cad := cad + cad2;
    {termina la conversión de las decenas y unidades}
    if cad <> '' then
      conv := cad
    else
      Conv := 'Cero';
  end;
end;

function NumeroALetras(Valor: longInt):string;
begin
  Lee(Valor);
  Result := Conv;
end;

end.