怎样四舍五入？

Question

其实不完全是四舍五入。如果有一个小数，只要带有小数就算作1，
比如
8.4，就算作9，
7.6就算作8之类的！

Answer 1

或者
 caption:=format('%0.0f',[1.51])

Answer 2

为什么我用两个Integer类型的变量相除。
Label1.Caption:=Format('%0.0f',[ADOQuery1.RecordCount div 40]);
结果提示： Format '%0.0f' invalid or incompatible with argument