请问计算出的值小数点后有很多位，如何让显示的数值四舍五入只显示小数点后两位呢？谢谢大家！！

content="123.315"
MyArray = split(content,".")
content=MyArray(0) + "." + cstr(cint(left(MyArray(1),3)/10))

意 CInt 不同于 Fix 和 Int 函数删除数值的小数部分，而是采用四舍五入的方式。 当小数部分正好等于 0.5 时, CInt 总是将其四舍五入成最接近该数的偶数。例如， 0.5 四舍五入为 0, 以及 1.5 四舍五入为 2.

真正的四舍五入我不太清楚
有没有其他方法我也不太清楚

[此贴子已经被作者于2006-9-4 0:33:22编辑过]

呵呵
content="123.395"
content=Round (content,2)

这样输出的是123.4,
用2楼的方法结果是123.40
还有
round这个方法也不是真正意义上的四舍五入，也是将其四舍五入成最接近该数的偶数，还是谢谢楼上的提醒，呵呵

------------------------------------------------------------------------------------------------------
Round 函数
返回按指定位数进行四舍五入的数值。

Round(expression[, numdecimalplaces])

参数
Expression

必选项。数值表达式 被四舍五入。

Numdecimalplaces

可选项。数字表明小数点右边有多少位进行四舍五入。如果省略，则 Round 函数返回整数。

说明
下面的示例利用 Round 函数将数值四舍五入到两位小数：

Dim MyVar, pi
pi = 3.14159
MyVar = Round(pi, 2) 'MyVar contains 3.14。

呵, 還有個 FormatNumber 啊.