关于round函数的问题

dyy830606 2008-04-18 08:55:41
Text1.Text = Round(0.1245, 3) 结果为0.124
Text1.Text = Round(0.1255, 3) 结果为0.126
为什么啊,奇进偶不进
还有什么函数能够表示四舍五入
...全文
180 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
dyy830606 2008-04-21
  • 打赏
  • 举报
回复
太感谢了。
舉杯邀明月 2008-04-21
  • 打赏
  • 举报
回复
Function MyFormat(ByVal n#, ByVal m&) As String

If (m > 0) Then
MyFormat = Format$(n, "0." & String(m, "0"))
Else
MyFormat = Format$(n, "0")
End If

End Function


............
dyy830606 2008-04-20
  • 打赏
  • 举报
回复
那要用多少个if语句阿,小数位数是不确定的,并且前面还有可能有< > 等
lyserver 2008-04-20
  • 打赏
  • 举报
回复
VB的round函数并不准确,你需要修改一下。
下面是我的改进后的代码:
Public Function myRound(nNumber, Optional nDec As Long = 0)
myRound = Round(nNumber + 0.1 ^ (nDec + 1), nDec)
End Function
dyy830606 2008-04-20
  • 打赏
  • 举报
回复
楼上的什么话,我要源程序了么,我只是问问这个函数是不是就是这样,再说,看看是不是有其他的解决方法,你打出来这句回答貌似也没用什么脑子
zzyong00 2008-04-20
  • 打赏
  • 举报
回复
编程得用脑子
舉杯邀明月 2008-04-18
  • 打赏
  • 举报
回复
Format$(15.1245,"0.000") = 15.125
Format$(15.1255,"0.000") = 15.126
zzyong00 2008-04-18
  • 打赏
  • 举报
回复
前几天有人提过这样的问题
用format
dyy830606 2008-04-18
  • 打赏
  • 举报
回复
有人知道么
相关推荐
发帖
API

1483

社区成员

VB API
社区管理员
  • API
加入社区
帖子事件
创建了帖子
2008-04-18 08:55
社区公告
暂无公告