Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教如何能以0.5为单位四舍五入


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

主题：请教如何能以0.5为单位四舍五入
帅哥哟，离线，有人找我吗？
北海的小熊
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：64 积分：674 威望：0 精华：0 注册：2011/8/29 19:45:00 		请教如何能以0.5为单位四舍五入  发帖心情 Post By：2013/11/8 12:30:00 [只看该作者]

比如1.1/1.2/1.3 全部四舍五入成1.5

1.5/1.6/1.7 全部四舍五入成2
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/11/8 12:36:00 [只看该作者]

Dim v As Double = 1.7
Dim m As Double = v Mod 1
If m >= 0.5 Then
    v = math.Floor(v) +1
ElseIf m> 0 Then
    v = math.Floor(v) + 0.5
End If
output.show(v)

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/11/8 12:40:00 [只看该作者]

……

if n mod 1 > 0

    if n mod 1 < 0.5

       n = n \ 1 + 0.5

    else

      n = n \1 +1

    end if

end if
 回到顶部
帅哥哟，离线，有人找我吗？
北海的小熊
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：64 积分：674 威望：0 精华：0 注册：2011/8/29 19:45:00 		  发帖心情 Post By：2013/11/8 13:03:00 [只看该作者]

自己找到办法了，谢谢

自定义函数myround

Dim i As Double = Args(0)
If (i - Int(i) < 0.5) Then
    Return Int(i) + 0.5
Else
    Return Int(i) + 1.0
End If
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/11/8 14:02:00 [只看该作者]

以下是引用北海的小熊在2013-11-8 13:03:00的发言：

自己找到办法了，谢谢

自定义函数myround

Dim i As Double = Args(0)
If (i - Int(i) < 0.5) Then
    Return Int(i) + 0.5
Else
    Return Int(i) + 1.0
End If

 

i 为整数呢？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询