Tema: pesos a cadena
Ver Mensaje Individual
  #4  
Antiguo 27-01-2009
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
  
Registrado: may 2003
Posts: 5.614
Reputación: 32
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Si se trata de pesos mexicanos, como alternativa tienes la función ghMXPesos de GH Freebrary:

Código Delphi [-]
Uses
  GHFMath;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := ghMXPesos (10525.37);
  { diez mil quinientos veinticinco pesos 37/100 M.N. }

  Label2.Caption := ghMXPesos (10525.37, True);  // True = primera letra mayúscula
  { Diez mil quinientos veinticinco pesos 37/100 M.N. }

  Label3.Caption := ghMXPesosUpper (10525.37);  // Todo en mayúsculas
  { DIEZ MIL QUINIENTOS VEINTICINCO PESOS 37/100 M.N. }
end;

Saludos.

Al González.
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
Última edición por Al González fecha: 27-01-2009 a las 20:00:07.
Responder Con Cita