什么函数可以使 f（19/6）＝ 4 ，即整除后不管小数位是多少，除零外都可以进一。（急用）

[newyc]

RT

[didishu0807]

a=19 mod 6
if a<>0 then
b=19\6+1
end if

[onlineboy]

..=19\6 + iif(19 mod 6 =0,0,1)
搞定

[onlineboy]

写成函数是这样的

Function fnDevice(byVal a as Long, byVal b as Long) as Long
'a是除数，b被除数，且b不能为零
fnDevice=a\b + iif(a mod b=0,1,1)

end Function

[射天狼]

同意楼上.

[newyc]

不是呀，我好像记得是有一个现成的函数的呀，我以前还用过，可怎么也检索不到了。 :(

[newyc]

我记得有个现成的函数的呀？ 那位老大能告诉我那？

[ftp0697]

首先A是正数 -Fix（-A）

[ftp0697]

知道正数负的你也应该会了吧！

[pigpag]

//首先A是正数 -Fix（-A）
-Int(-A)才对。(A>0)

Fix是截尾取整。