Problema de Redondeo de Decimales con una Función

[[coso]]

Hola, si usas Round

Código Delphi [-]
function TForm1.TruncarDecimales (parametro: Double): Double;
begin
  Result := (Round(parametro * 100)) / 100;
end;

solucionado

[ContraVeneno]

¿ la función "RoundTo" serviría para eso?

[[coso]]

Si. En mi delphi no esta (v.5) pero si, parece que hace exactamente eso.

[ContraVeneno]

supongo que "SimpleRoundTo" también serviría. Dependiendo del resultado final que se quiera.

Y no creo que sea dificil de implementar:

Código Delphi [-]
function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  if AValue < 0 then
    Result := Trunc((AValue / LFactor) - 0.5) * LFactor
  else
    Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;

[agustibaldo]

Ante todo, muchas gracias por sus respuestas.

Voy a probar usar la función Round para ver si ésta resuelve mi problema. En un primer momento no se me ocurrió porque, según tengo entendido, esta función redondea decimales, y lo que yo busco es mostrar solo 2 decimales, no redondear. De todas formas, intentaré esta forma para ver que resulta. Luego les comento.

Estoy trabajando con SQL Server 2005 y el tipo del campo IMPORTE es decimal(22,7)

Un abrazo a todos...

[[coso]]

Si, round redondea decimales, por eso mismo transforma 1.9465*100 = 194.65 en 195, mientras que int a secas tansolo te cogeria el valor entero (194). De todas maneras, la funcion RoundTo que te comenta contraveneno hace exactamente lo que querias implementar. saludos.

[agustibaldo]

Exacto, por eso me quedaba la duda. Al utilizar la función ROUND redondeo los decimales, y para el caso en que el valor sea pej. 190.857, el resultado de esta función será 190.86, lo cual no es lo que deseo.

Voy a probar usar ROUNDTO para ver que resulta. Tenes idea cual es la diferencia entre una y otra?

Muchas gracias por sus respuestas

[[Lepe]]

Pues ahora no me cuadran las cosas.

Tienes definido en la base de datos que almacene con una precisión de 7 decimales, lo cual me parece correctísimo para no perder decimales en operaciones de tanto por ciento, divisiones, etc y, ¿ahora no quieres redondear?, ¿quieres despreciar toda esa exactitud que te está dando los 7 decimales? no lo entiendo .

Yo lo que haría es especificar en delphi, (en los campos persistentes) la propiedad del TField Currency a true. Esto hace que se redondee a 2 decimales cuando se va a mostrar el dato, pero realmente guardará toda la precisión que quieres.

Por otra parte y al menos en españa, se permite legalmente redondear el monto total de una factura, pero no así las subpartes (iva, base imponible, etc). Tenlo en cuenta.

Otro detalle más (por si fueran pocos ) Mira con detenimiento las funciones RoundTo, simpleRoundTo, etc, ya que alguna de ellas depende de un parámetro de configuración del sistema, y determina si usará el tipo de redondeo (hacia el positivo más alto, hacia el positivo más bajo, etc).

Saludos