以文本方式查看主题

-  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=179498)
--  作者：hopestarxia
--  发布时间：2022/8/26 16:01:00
--  小数取整问题
老师，我想用某列数值的小数部份与一个特定值比较，例如0.3,如果比较数字的小位部份大于0.3，则结果向上取整，如果小于0.3则向下取整，（比如说2.32，则结果得3，2.26则结果等于2；5.65取整等于6，5.11取整等于5）
请问代码应该如何实现？
--  作者：有点蓝
--  发布时间：2022/8/26 16:19:00
--  
Dim d As Double = 2.32
Dim d1 As Integer = math.Floor(d)
Output.Show(d1)
If d - d1 >= 0.3 Then
    d1 = math.Ceiling(d)
End If
Output.Show(d1)
--  作者：hopestarxia
--  发布时间：2022/8/27 10:26:00
--  
谢谢老师！