| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]向上取整函数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104735) |
| -- 作者：kb9701 -- 发布时间：2017/8/4 9:28:00 -- [求助]向上取整函数 FOXTABLE没有已经定义的向上取整函数，只有类似四舍五入的，是不是需要手工定义一个函数，有没有哪位兄弟写过现成的，给个用用呀。先谢啦。 好吧。。太简单了没人看。。自己搞定了。。 [此贴子已经被作者于2017/8/4 9:53:54编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/8/4 10:03:00 -- http://www.foxtable.com/webhelp/scr/1440.htm
|
| -- 作者：kb9701 -- 发布时间：2017/8/4 10:11:00 -- 没有向上取整的呀 比如11.11取整12，11.0001取整也是12这种的 我自己写了个自定义的 因为数值不会为空和0，所以就不去判定传递的参数了。 Dim Args0 As Integer =Args(0) Dim Args1 As Integer =Args(1) Dim i As Double = (Args(0)/Args(1)) Dim i2 As Double = Round2(i,1) Dim i3 As Integer = Round2(i,0) If i2 > i3 Then Return i3+1 Else Return i3 End If |
| -- 作者：有点甜 -- 发布时间：2017/8/4 10:27:00 -- 有的
http://www.foxtable.com/webhelp/scr/0272.htm
|