单从这两个函数来看.是不可以的.

如果一定要自己写..
这样试试..
Function Round(X As Double, DP As Integer) As Double
     X = X * 10 ^ DP + 0.5
     Round = Int(X) / 10 ^ DP
End Function

或

Public Function Round(ByVal dblNumber As Double, Optional ByVal intFactor As Integer = 0) As Double
    Round = Fix(cdbl(dblNumber * 10 ^ intFactor + 0.5 * Sgn(dblNumber))) / 10 ^ intFactor
End Function

这两个函数..
可能比系统的Round函数..更习惯于大家平时的应用中..
因为vb6中的Round函数.虽说是四舍五入..但实质是四舍六入五留双.

看个例子..
x1=Round(1.25,1)
x2=Round(1.35,1)
大家看x1和x2分别是多少.
在vb里执行一下..就会发现问题..
x1=1.2     '没有进位
x2=1.4     '进位了
这就是奇进偶不进.
这不是一个bug.而是符合一个国际标准.
所以使用上面两个函数.在平时中可能更符合大家的应用.

谢谢了
又使我学到了许多知识

你写的DP 是什么意思啊？
还有 X = X * 10 ^ DP + 0.5 又是什么意思啊？
等待你的指教

這樣有意義麼

4楼的说的对啊
fix(x+0.5)和int(x+0.5)就能实现啊
比如你要精确到千分位
   fix(x*1000+0.5)就行了啊
没那么复杂啊

不好意思， 是 fix(x*1000+0.5)/1000