Foxtable(狐表)用户栏目专家坐堂 → Math.Floor 如果是小数 该怎么写


  共有1831人关注过本帖树形打印复制链接

主题:Math.Floor 如果是小数 该怎么写

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12183 威望:0 精华:0 注册:2012/3/5 11:32:00
Math.Floor 如果是小数 该怎么写  发帖心情 Post By:2016/3/30 11:13:00 [只看该作者]

Math.Floor只能返回整数


如果要返回 0.25 的倍数 该怎么写?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/30 11:16:00 [只看该作者]

 没看懂你什么意思,举例说明。


 回到顶部
帅哥哟,离线,有人找我吗?
ljh29206
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12183 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By: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




 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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)


 回到顶部