Ver Mensaje Individual
  #3  
Antiguo 11-07-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
Para devolver un numero cuando hay separador de miles...

Código Delphi [-]
function SacarFormato(s : string;sep_m : char; sep_f : char) : double;
begin
            SacarFormato := 0; 
 
            s := StringReplace(s,sep_m,'',[rfReplaceAll, rfIgnoreCase]);
            s := StringReplace(s,sep_f,',',[rfReplaceAll, rfIgnoreCase]);     

            try
            SacarFormato := strtofloat(s);
            except
            raise exception.Create('error en SacarFormato.StrFloat');
            end;
end;


en tu caso, la llamaria asi :
Código Delphi [-]
       ...
       double b := SacarFormato('1.323,29','.',',');
       ...


EDITO : ups, q me olvido argumentos.


saludos

Última edición por coso fecha: 11-07-2008 a las 19:00:06.
Responder Con Cita