Como usar solo dos posiciones decimales

[alcides]

Hola a todos,

como puedo realizar una operacion matematica con una variable que tiene cuatro posiciones decimales, de la cual solo quiero que me tome las dos primera posiciones decimales sin redondearla.


Gracias mil,


Alcides
Rep.Dom.

[[gluglu]]

Pienso que para lo que tu quieres, es decir sin redondear previamente el número, lo mejor sería convertirlo a String con los cuatro decimales, despreciar los dos últimos caracteres, y volver a convertir ese string a número.

Saludos

[alcides]

Gracias gluglu,
parece una buena salida, voy a chequear.


Gracias mil,

Alcides
Reo.Dom.

[[Lepe]]

Siempre habrá que hacer comprobaciones, como por ejemplo si tiene 3, 5 o 4 decimales.


Otra forma:

Multiplica por 10^(Nº de decimales), después te quedas con la parte entera (Trunc), y al final divides por 10^(nº de decimales)

Si no recuerdo mal 10^N es la función IntPower.

Código Delphi [-]
var x:Extended;
    decimales:integer;
begin
  x:= 122.345;
  decimales := 3;
  if decimales > 0 then
    x := Trunc(x * IntPower(10.0,decimales)) / IntPower(10.0,decimales);

saludos

[alcides]

Gracias Lepe,

lo voy a probar, porque la verdad, que no he podido resolver.


Gracias Mil.

Alcides
Rep.Dom.

[droguerman]

una forma algo más elegante es usando la funcion format, sobre todo para los que están acostumbrados con el printf:

Código Delphi [-]
convertido := format('$4.4f', [nro]);

[alcides]

Gracias Droguerman,
sabes quiero dejar el valor con dos decimales, no solo por la impresion del campo sino para efectuar una operacion matematica, y con el format no he podido hacerlo.


ejemplo: Dep_Mensual:= 476.45333 quiero dejarlo en 476.45

eso es lo que no he podido realizar.

de todas maneras

Gracias Mil,


Alcides
Rep.Dom.

[Jovana Macias]

EditImporteParc.Text := FormatCurr('###,###,##0.00', Saldo);

con esta funcion podras soluicionar tu problema

[alcides]

ok.

Gracias Jovana Macias

ahora si, funciono. saque el reporte y los calculos estan perfecto.



Gracias mil,


Alcides
Rep.Dom.

[Jovana Macias]

de nada ayudenme a ver lo de mi pregunta

aplicacion en delphi internet html access

graxias