VB 数字精确到十位数
例如，183.98 变成 180

[解决办法]
m=10*int(n/10+0.5)
[解决办法]

VB code

Option ExplicitPrivate Sub Command1_Click()    Dim dblP As Double    Dim intP As Integer    dblP = 183.39    intP = (CInt(dblP) \ 10) * 10    Debug.Print intPEnd Sub
[解决办法]
int(183.98/10)*10
[解决办法]
未说明是否四舍五入.
如果只是舍去个位,不四舍五入,则:
Int(186.98 / 10) * 10
如果要四舍五入,则:
CInt(186.98 / 10) * 10