标题:进行四舍五入后并保留一位小数,经整理如下 代码帮我检查下,谢谢
取消只看楼主
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
结帖率:84.62%
已结贴  问题点数:20 回复次数:4 
进行四舍五入后并保留一位小数,经整理如下 代码帮我检查下,谢谢
我想求得数据:spd、gaocha、gc
进行四舍五入后并保留一位小数,经整理如下代码,

但结果不对,不知道错在哪?

帮我检查下,谢谢!

代码如下:
spd = Format(spd, "#0.00")
If spd > Format(spd, "#0.0") + 0.04 Then
Text11.Text = Format(spd, "#0.0") + 0.1
Else
Text11.Text = Format(spd, "#0.0")
End If

gaocha = Format(gaocha, "#0.00")
If gaocha > Format(gaocha, "#0.0") + 0.04 Then
Text10.Text = Format(gaocha, "#0.0") + 0.1
Else
Text10.Text = Format(gaocha, "#0.0")
End If

gc = Format(gc, "#0.00")
If gc > Format(gc, "#0.0") + 0.04 Then
Text12.Text = Format(gc, "#0.0") + 0.1
Else
Text12.Text = Format(gc, "#0.0")
End If
搜索更多相关主题的帖子: 检查 代码 四舍五入 小数 
2009-08-01 15:59
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
好象是FORMAT格式有问题
2009-08-01 16:05
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
已经自己解决了!

谢谢各位,请看代码,如下

spd = 100 * l * Sin(g) * Sin(g)
gaocha = spd * Sin(g) * Cos(g)
gc = cz + gaocha + yg - zz

If Val(spd * 10) > Int(Val(spd * 10)) + 0.4 Then
Text11.Text = Int(spd * 10 + 1) / 10
Else: Text11.Text = Int(Val(spd * 10)) / 10
End If


If Val(gc * 10) > Int(Val(gc * 10)) + 0.4 Then
Text12.Text = Int(gc * 10 + 1) / 10
Else: Text12.Text = Int(Val(gc * 10)) / 10
End If
2009-08-01 16:54
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
我试了下,:

Round(a ,2)

好象不行啊
2009-08-02 16:16
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
dim a as long
2009-08-05 14:10



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-281263-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.512183 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved