读书人

很简单的快来,小数点有关问题!马上给分

发布时间: 2012-03-06 20:47:55 作者: rapoo

很简单的快来,小数点问题!马上给分!
小数点后保留三位,不进行四舍五入,不足的以0补齐.
例如:
2.1
123.45678
2
2.23
22.8899
结果:
2.100
123.456
2.000
2.230
22.889
解决了马上给分!

[解决办法]
不知道,实在不行就自己写个方法咯!
可以先乘个1000,整数有截尾函数的,然后再除回来Format?
[解决办法]
Private Sub Command1_Click()
Text1 = Format(Int(22.8899 * 1000) / 1000, "#.000 ")
End Sub

[解决办法]
Private Sub Command1_Click()
Text1 = Format(Int(22.88 * 1000) / 1000, "#.000 ")
End Sub

[解决办法]
Format(Int(22.88 * 1000) / 1000, "#.000 ")的结果应该没有问题的。
[解决办法]
Text1 = Format(Int(22.884 * 100) / 100, "#.000 ")

是*100,再/100
[解决办法]
Text1 = Format(Int(22.884 * 100) / 100, "#.000 ")
[解决办法]
Dim GetNum as Double
GetNum = 这里随便输入
Format(Int(GetNum * 1000) / 1000, "#.000 ") 你要的结果
[解决办法]
取小数点后三位 不足&0

读书人网 >VB

热点推荐