以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]四舍五入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33618)
--  作者：hwj3551670
--  发布时间：2013/5/21 17:38:00
--  [求助]四舍五入

舍弃四舍五入  直接取整 比如26.3=27

用表达式能不能实现

如果不能实现

用代码应该怎么实现
--  作者：XYT
--  发布时间：2013/5/21 17:41:00
--  
Ceiling 返回大于或等于指定数字的最小整数
 

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

执行后变量Lng的值将等于124
[此贴子已经被作者于2013-5-21 17:41:18编辑过]
--  作者：hwj3551670
--  发布时间：2013/5/21 18:53:00
--  

这个应该怎么执行

 

e.Form.Controls("Label2").text= DataTables("计算器").Compute("Sum(金额)")

我用的是这个代码求合

想把这个合后面的小数都取整 13.2=14
--  作者：XYT
--  发布时间：2013/5/22 8:34:00
--  

Math.Ceiling(DataTables("计算器").Compute("Sum(金额)"))