VB 数字精确到十位数
例如,183.98 变成 180
[解决办法]
m=10*int(n/10+0.5)
[解决办法]
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