MsgBox Round(0.265, 2)
MsgBox Round(0.266, 2)
MsgBox Round(0.266, 2)
解决方案 »
- 如何打印PictureBox中的内容(内容是用Picture.Line显示在PictureBox中的线条)
- 这个问题也许有点复杂。。 希望大家齐心协力把它给剁拉:)
- 新手上路,请高手指点!谢了!(冬之花)
- 如何快速写入文件?
- 好奇怪的datagrid问题
- MSHFLEXGrid表格控件行定位
- 用Vb如何可以读取Sql SErver的服务器名?
- 请教:visdata缺少.dll是什么?在哪找?
- ID_EDIT_COPY 这是个什么消息?系统消息?控件消息?还是剪贴版消息?
- 难得大家对古诗词有兴趣,我联发四○贴,只要回答上作者,必送一百算是回报大家2年来对小弟照顾
- 谁有 Visual Studio 2008 正式版的下载地址(不要速成版),谢谢!
- VB6如何解决用Winsock传送字符串内容客户端接收到的乱码问题
0.265前面的数是6,所以为0.26
如果是0.235 ,那么就是0.24.
Dim C As Double
Dim D As String
C = Int((MainNumber * 10 ^ (Number + 1)))
D = Right(CStr(C), 1)
If CDbl(D) >= 5 Then
C = C + 10
C = Int(C / 10)
Else
C = Int(C / 10)
End If
Round = C / 10 ^ Number
Exit Function
End Function
0.26
?FORMAT("0.265","#0.##")
0.27
?FORMAT("0.266","#0.##")
0.27