Como Truncar decimales
 

Hola Foro:
Estoy aciendo un módulo con Delphi7 sobre una tabla DBF.
Necesito hacer una consulta que modifique un campo en forma porcentual. Estoy haciendo lo siguiente:

Uptade articulos.dbf set precio=precio+precio* (:Porcentaje ) /100

El problema es que el precio queda 1.2134001. No puedo cambiar el diseño de los campos en la tabla, por eso quisiera saber como hago para truncar los decimales, o sea una función tipo int() o trunc()

Desde ya gracias por su atención.

¿Te sirve la función Frac?

Código SQL [-]
Uptade articulos.dbf set precio=Cast(precio+precio* (:Porcentaje )  /100 As Integer)

Un Saludo.

Gracias
 

Gracias por todo.
Saludos