как выделить целое?

[Роман26]

Большое спасибо! Отличная идея!)

[Okmor]

out:=INT_TO_REAL(REAL_TO_INT((t-TRUNC(t))*10))/10+TRUNC(t);