Foxtable(狐表)用户栏目专家坐堂 → 类似ceiling函数的


  共有2772人关注过本帖树形打印复制链接

主题:类似ceiling函数的

帅哥哟,离线,有人找我吗?
sqcedu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:145 威望:0 精华:0 注册:2015/9/17 14:53:00
类似ceiling函数的  发帖心情 Post By:2015/9/24 13:33:00 [只看该作者]

excel有个ceiling函数,我想在狐表中返回数值的0.5倍。怎么弄啊。
类似在excel中,ceiling(1.4,0.5)=1.5,那狐表怎么实现啊

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/9/24 15:56:00 [只看该作者]

网上找了一个函数例子,如

 

Public Function CEILING(NumA As Double, NumB As Double) As Double
    Dim i As Long
    i = 0
    Do While i * NumB < NumA
        i = i + 1
    Loop
    CEILING = i * NumB
End Function


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/24 16:26:00 [只看该作者]

 

[此贴子已经被作者于2015/9/24 16:27:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/24 16:30:00 [只看该作者]


Dim n1 As Double = 1.4
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
Do While  n * n2 < n1
    n += 1
Loop
msgbox(n*n2)

 


 回到顶部