以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]round2 怎么回事?难道我用错了?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103367)

--  作者:18523982317
--  发布时间:2017/7/6 16:17:00
--  [求助]round2 怎么回事?难道我用错了?

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170706161542.png
图片点击可在新窗口打开查看

round2不是四舍五入么?

--  作者:有点甜
--  发布时间:2017/7/6 16:41:00
--  

要用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"))


--  作者:18523982317
--  发布时间:2017/7/6 16:42:00
--  
ROund2  好坑,我用Decimal ,有的正常,有的不正常,服了。。。。
--  作者:有点甜
--  发布时间:2017/7/6 16:47: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


--  作者:18523982317
--  发布时间:2017/7/6 16:53:00
--  
算了  Format吧,我批量改。。。。
--  作者:有点甜
--  发布时间:2017/7/6 17:25:00
--  
以下是引用18523982317在2017/7/6 16:53:00的发言:
算了  Format吧,我批量改。。。。

 

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


--  作者:18523982317
--  发布时间:2017/7/6 17:29:00
--  
额 没注意看   改了半天 改好了。。。