主题：[求助]round2 怎么回事？难道我用错了？

要用format，Round2还是有问题

Dim jd As Double = (5760.15-3900)*0.1-105
output.show(jd)
output.show(Round2(jd,2))
output.show(Format(jd, "0.00"))

round2是有点问题的。不然你可以重写

全局代码 http://www.foxtable.com/webhelp/scr/1842.htm

Public Function Round2(val As Double, num As Integer) As Double
    Return Format(val, "#." & "000000000".Substring(0,num))
End Function

改写round2也很简单的，全局代码，输入4楼代码即可。