以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  类似ceiling函数的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75007)
--  作者：sqcedu
--  发布时间：2015/9/24 13:33:00
--  类似ceiling函数的
excel有个ceiling函数，我想在狐表中返回数值的0.5倍。怎么弄啊。
类似在excel中，ceiling（1.4，0.5）=1.5，那狐表怎么实现啊
--  作者：Hyphen
--  发布时间：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
--  作者：大红袍
--  发布时间：2015/9/24 16:26:00
--  

 

[此贴子已经被作者于2015/9/24 16:27:04编辑过]
--  作者：大红袍
--  发布时间：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)