以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Math.Floor 如果是小数 该怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83050)
--  作者：ljh29206
--  发布时间：2016/3/30 11:13:00
--  Math.Floor 如果是小数 该怎么写
Math.Floor只能返回整数


如果要返回 0.25 的倍数 该怎么写？
--  作者：大红袍
--  发布时间：2016/3/30 11:16:00
--  

 没看懂你什么意思，举例说明。
--  作者：ljh29206
--  发布时间：2016/3/30 11:29:00
--  
l例如
返回小于等于0.25倍数值
1.2  返回 1
1.34  返回 1.25
2.2   返回 2
2.6   返回 2.5
2.9   返回 2.5
3.1 返回 3
--  作者：大红袍
--  发布时间：2016/3/30 11:42:00
--  

向上取整

 

Dim n1 As Double = 2.9
Dim n2 As Double = 0.25
Dim n As Integer = n1 / n2
If n * n2 < n1 Then n += 1
msgbox(n*n2)

 

向下取整

 

Dim n1 As Double = 2.4
Dim n2 As Double = 0.25
Dim n As Integer = n1 / n2
If n * n2 > n1 Then n -= 1
msgbox(n*n2)