¿Y algo así no funcionaría?
Código Delphi
[-]
entrada:=entrada*100
if entrada-int(entrada)>=0,5 then
entrada:=int(entrada)+1
else
entrada:=int(entrada);
entrada:=entrada/100;
En entrada tenemos el número original y el 100 es para dos decimales, 1000 para 3, etc. Por otra parte... ¿existe la funciona int? ¿o es trunc? Vamos lo que quería con esa función era coger la parte entera, sin redondear, es decir int(1,1)=1 y int(1,7)=1.
Un saludo