ток с отрицательными пришлось переделать...
b:=REAL_TO_DINT(a);
if (DINT_TO_REAL(b)>a) and b>0 then
b:=b-1;
end_if
if (DINT_TO_REAL(b) < a ) and b<0 then
b:=b+1;
end_if
ps пордон не увидел. страницу не обновлял....
еще раз спасибо за идею.