四舍五入取值？？？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 四舍五入取值？？？

标题：四舍五入取值？？？

只看楼主

cba817

等　级：论坛游民
帖　子：95
专家分：10
注　册：2008-3-24
结帖率：83.33%

楼主

问题点数：0 回复次数：9

四舍五入取值？？？

怎样实现如：输入2.499995 输出2.5呢？
2.5─〉3？
2.4─〉2？
急求教~~~

搜索更多相关主题的帖子: 输出　四舍五入　输入　

2008-07-22 09:30

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 2 楼

得分:0

如果不保留小数,直接fix(2.499995)

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-07-22 09:52

随风逐流

来　自：passerby
等　级：版主
威　望：8
帖　子：4054
专家分：271
注　册：2007-6-13

第 3 楼

得分:0

或者
MsgBox Format(2.499995, "#0.0")
后面#0.0是表示格式
如果你要保留2位小数
#0.00

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]

2008-07-22 09:55

cba817

等　级：论坛游民
帖　子：95
专家分：10
注　册：2008-3-24

第 4 楼

得分:0

请赐教！

还有其它的用法？
如：int round fix?
    nb=int(2.4)  2
    nb=fix(2.4)  2
    nb=int(-2.5) 2
    nb=fix(-2.5) 3
对吧？
round?

2008-07-22 10:21

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 5 楼

得分:0

或者直接赋值给整型变量……

2008-07-22 11:37

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 6 楼

得分:0

[bo][un]multiple1902[/un] 在 2008-7-22 11:37 的发言：[/bo]

或者直接赋值给整型变量……

等等……5被舍去了，超过5就入了……真神奇

2008-07-22 11:38

ayld

等　级：新手上路
帖　子：87
专家分：0
注　册：2007-1-31

第 7 楼

得分:0

+0.05

2008-07-22 20:50

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 8 楼

得分:0

如果想保留指定小数位数的四舍五入：
Public RoundValue(NumeberValue as double) as Double
dim k as Integer

k=val(inputbox("输入保留小数位数：","4","保留小数位数"))
RoundValue=int(NumeberValue*10^k+0.5)/10^k
end function

另一个vb自带的函数为：Round。

2008-07-24 12:50

hyhhd

等　级：论坛游民
威　望：1
帖　子：502
专家分：44
注　册：2006-5-12

第 9 楼

得分:0

一般人我不告诉他！

2008-07-24 12:53

cba817

等　级：论坛游民
帖　子：95
专家分：10
注　册：2008-3-24

第 10 楼

得分:0

不错哦！
很荣幸~