两个数字相除后 所得结果的问题

[go_best]

各位大哥
我碰到个问题
就是当一个数值除以另外一个数值后的值 在0-1之间时
现在显示出来的是
例如
1/10=.1
请问如何可以在进行 1/10 的运算后 得到 0.1这种方式的显示呢
我用ccur,cdbl,round,format 等方法后 还都是没法转变
有知道的 请帮帮我吧

[tangchuan2005]

MsgBox Format(1 / 10, "0.0")
这样就可以了撒

• 打赏
• 举报

回复 赞

[lv1]

根据小数点来剪开数据,这估计是比较笨的方法了,hoho
Private Sub Command4_Click()
Dim a As string
Dim i As Integer
a = 1234.12
For i = 1 To Len(a)
If Mid(a, i, 1) = "." Then
a = Format(Mid(a, i), "0.00")
Exit For
End If
Next
MsgBox a
End Sub

• 打赏
• 举报

回复 赞

[Ninputer]

Format(1/10, "0.#")

• 打赏
• 举报

回复 赞

[go_best]

谢谢 这样是可以
但是现在的问题是
我是根据服务器那边去过来的 数据然后成批 做运算的
所以 出来的数据 进行运算后有的是大于1的数值
然后显示出来的数值中 现在就是数值在0-1 区间的那部分显示
不正确
请帮忙解决

• 打赏
• 举报

回复 赞

[Ninputer]

这个比1大的或者比0小的也照样正确

• 打赏
• 举报

回复 赞

[Ninputer]

再不济还可以Format(2345.2345, "0.#########")

• 打赏
• 举报

回复 赞

[of123]

Format(你的数字, "standard")

• 打赏
• 举报

回复 赞

[Saytoyou]

FormatNumber(1 / 10, , vbTrue)

• 打赏
• 举报

回复 赞