Redondeos con Firebird 2.0

[Jose_T]

Hola a todos.

Probad a ejecutar esta sentencia en Firebird, y decidme si estoy loco, o que:

SELECT
CAST(1.5 * (20.45 ) * 100 AS INTEGER) / 100,
CAST(1.5 * (20.45 - 0) * 100 AS INTEGER) / 100
FROM una_tabla_cualquiera

El primer campo devuelve 30,68, y el segundo 30,67. ¿Hay alguna explicación lógica?
He probado a poner - 0.0 (por si fuese un problema de tipos de datos), y seguimos en las mismas. El resultado correcto del redondeo de 30.675 es 30.68, pero no se cómo llegar hasta él.

Gracias.

[Casimiro Notevi]

Así a simple vista, quita el "as intenger", estás forzando a quitar los decimales

[Jose_T]

Oño, ahí está la magia del asunto. Para hacer los redondeos (sin usar rounds de udfs ni leches), pretendía aplicar esto, pero al restar (aunque sea un 0) se "escacharra" el resultado.

Prueba a ejecutarlo y te sorprenderás.

Bueno, ¿y cómo redondeáis vosotros? Help please!!!

[Casimiro Notevi]

Bueno, la verdad es que en la base de datos no acostumbro a redondear nada, guardo todo según lo calculado desde Delphi.
Algo asi como esta función:

function Redondeo (valor:Double; decim:integer = 0): Double;
var
  factor: Double;
begin
  factor := IntPower(10,decim);

  if valor > 0 then
    Result := (TRUNC((valor*factor)+0.5)) / factor
  else
    Result := (TRUNC((valor*factor)-0.5)) / factor;
end;

Y el resto de valores los guardo con todos sus decimales.

[Jose_T]

Es que en mi tabla de detalle de facturas tengo un campo BaseImponible que es COMPUTED BY. Lo creé así por consistencia y... EN QUÉ HORA!!!

[fdelamo]

En lugar de hacer el CAST as INTEGER haz un CAST as NUMERIC(6,2)

[Jose_T]

Otias, en cuanto llegue a casa lo pruebo. ¡Gracias!

[Jose_T]

Nada, el resultado es el mismo que si no hubiese redondeado.

Juer, vaya venta. ¿Ninguno hace redondeos usando campos COMPUTED BY en la propia base de datos?

Ayudaaa