以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单元格之间 运算结果按七舍八入来得到  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54283)
--  作者：hlxdggd
--  发布时间：2014/7/25 9:04:00
--  [求助]单元格之间 运算结果按七舍八入来得到
各位大侠 请问 狐表单元格之间计算的结果 怎么按七舍八入来得到计算的结果 而不是传统的四舍五入啊  请问有哪位大神帮忙解决一下啊
--  作者：Bin
--  发布时间：2014/7/25 9:23:00
--  
Dim len As Integer= 3   \'保留的小数位数
Dim i1 As String="30.28899"
Dim Ix As Integer = i1.LastIndexOf(".")
Dim i2 As String = i1.Substring(ix+len+1,1)
Dim i3 As String = i1.Substring(0,ix+len+1)
Dim i4 As Double = IIF(Val(i2)>7,Val(i3)+(1/System.Math.Pow(10,len)),Val(i3))
output.show(i4)
--  作者：有点甜
--  发布时间：2014/7/25 9:53:00
--  
Dim num As Double = 123.978
Dim ws As Integer = 2
msgbox(Math.Ceiling(num*10^ws-0.79) / 10^ws)