高手指教一个函数怎么写

[garrymark]

请高手指教逢一进十，就是2.1直接进到3的函数改怎么写？

[sdav]

直接转成INT

[garrymark]

INT型只能逢5进一，不能做到逢一进十

[stone_soup]

Dim a As Double = 1.12
MessageBox.Show(Math.Ceiling(a)) '返回大于或等于指定数字的最小整数。

[hzybc]

Dim x As Single
Dim y As Integer
x = 2.1
y = Int(x + 0.9)

[Yellow198267]

Int(x + 0.9)

[Yellow198267]

不好意思，说错了。找了好久终于找到这个帖子了。

[Yellow198267]

可不可以这样？
先把数字转换成字符串，然后判断‘.’是否存在，如果存在就判断大小，够1就进位了。

[garrymark]

我知道了,如果转换成INT,需要这么写Int(x + 0.499),因为如果正好碰到比如2.1 如果加0.4也只返回2,所以,加上0.499后面更2位就应该没有问题了,谢谢大家

[shicj]

Int(x + 0.4)

[dlzhangln]

dim dvalue as double
if dvalue<>fix(dvalue) then
msgbox(fix(dvalue)+1)
end if

[dlzhangln]

//Yellow198267的方法是通用并且可行的，我写了一个将秒转化为小时的四舍五入函数，lz可以参考一下
'***************************************************************************
'* @outline 秒から小時に転化
'* @author エイジス株式会社
'* @startdate 2006/08/29
'* @param itime 　(I/ ) 　秒
'*
'* 説明文 　秒から小時に転化
'***************************************************************************
Private Function getHour(ByVal itime As String) As String
Try
Dim a As Double = itime
Dim b As Double = 3600.0
Dim c As Double = (a / b)
Dim f As Integer
If (c <> Fix(c)) Then
Dim d As String = c.ToString.Substring(c.ToString.IndexOf("."))
If Val("0" & d) >= 0.5 Then
f = Fix(c) + 1
Else
f = Fix(c)
End If
Else
f = Fix(c)
End If
Return f.ToString()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try

End Function

[www_123du_com]

Math.Ceiling