7,785
社区成员
发帖
与我相关
我的任务
分享两个数字相除后 所得结果的问题
各位大哥
我碰到个问题
就是当一个数值除以另外一个数值后的值 在0-1之间时
现在显示出来的是
例如
1/10=.1
请问如何可以在进行 1/10 的运算后 得到 0.1这种方式的显示呢
我用ccur,cdbl,round,format 等方法后 还都是没法转变
有知道的 请帮帮我吧
我碰到个问题
就是当一个数值除以另外一个数值后的值 在0-1之间时
现在显示出来的是
例如
1/10=.1
请问如何可以在进行 1/10 的运算后 得到 0.1这种方式的显示呢
我用ccur,cdbl,round,format 等方法后 还都是没法转变
有知道的 请帮帮我吧
...全文
请发表友善的回复…
发表回复
Saytoyou 2006-04-21
- 打赏
- 举报
FormatNumber(1 / 10, , vbTrue)
of123 2006-04-21
- 打赏
- 举报
Format(你的数字, "standard")
Ninputer 2006-04-21
- 打赏
- 举报
再不济还可以Format(2345.2345, "0.#########")
Ninputer 2006-04-21
- 打赏
- 举报
这个比1大的或者比0小的也照样正确
go_best 2006-04-21
- 打赏
- 举报
谢谢 这样是可以
但是现在的问题是
我是根据服务器那边去过来的 数据然后成批 做运算的
所以 出来的数据 进行运算后有的是大于1的数值
然后显示出来的数值中 现在就是数值在0-1 区间的那部分显示
不正确
请帮忙解决
但是现在的问题是
我是根据服务器那边去过来的 数据然后成批 做运算的
所以 出来的数据 进行运算后有的是大于1的数值
然后显示出来的数值中 现在就是数值在0-1 区间的那部分显示
不正确
请帮忙解决
Ninputer 2006-04-21
- 打赏
- 举报
Format(1/10, "0.#")
lv1 2006-04-21
- 打赏
- 举报
根据小数点来剪开数据,这估计是比较笨的方法了,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
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
tangchuan2005 2006-04-21
- 打赏
- 举报
MsgBox Format(1 / 10, "0.0")
这样就可以了撒
这样就可以了撒
