Round
将值舍入到最接近的整数或指定的小数位数。
语法：
Round(Value, Digits)
Value: 数值
Digits: 要保留的小数位数。
例如：
Output.Show(Math.Round(
3.44, 1)) '显示3.4
Output.Show(Math.Round(3.45, 1)) '显示3.4
Output.Show(Math.Round(3.46, 1)) '显示3.5
可以看到Round函数不是严格的四舍五入，而是“四舍六入五成双”，意思是小于五的舍掉，大于五进位，如果等于五，则比较上一位，如果上一位是奇数，则进位，如果是偶数，则舍除，这样等于五的时候，结果始终等于最接近的偶(双)数，也就是成双。
如果你要严格地四舍五入，可以参考下面的代码：
Dim
Digits As Integer = 2 '要保留的小数位数，根据需要修改
Dim Value As Double = 1.245 '要进行四舍五入的小数值
Value = Math.Floor(Value * 10 ^ Digits + 0.5) / 10 ^ Digits '四舍五入
Output.Show(Value) '显示四舍五入后
加好友 
发短信
Post By：2010/8/27 15:09:00 [显示全部帖子]
