以文本方式查看主题

-  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=177219)
--  作者：2900819580
--  发布时间：2022/5/13 3:02:00
--  [求助]取整包数量
老师，采购需要对需求数量(小计)，按供应商包装（封包数量）到整包，我做了以下公式，如下，
如果小计数是整数就没有问题，如果是小数，他会进行四舍五入的处理。
以下代码要如何修改，还是我思路错了。
dim sl as singe =(r("小计") \\ r("封包数量")) * r("封包数量") + IIf(r("小计") Mod r("封包数量") > 0 , r("封包数量"), 0 )

命令窗体，做了验证，
Output.Show(10 \\ 3) = 3
Output.Show(10.8 \\ 1) = 11 ‘ 这里变成了11了
Output.Show(10.2 \\ 1) = 10
Output.Show(10.2 \\ 3) = 3
--  作者：z769036165
--  发布时间：2022/5/13 8:47:00
--  

Ceiling

返回大于或等于指定数字的最小整数。

例如：

Dim Val As Double = 123.1
Dim Lng As Long = Math.Ceiling(Val)

执行后变量Lng的值将等于124。
--  作者：有点蓝
--  发布时间：2022/5/13 9:04:00
--  
http://www.foxtable.com/webhelp/topics/1440.htm