Math.round:按条件计算的整数

Question

我正试着在接下来的事情上把一个数字加起来：

单位数字介于5-10之间的数字将四舍五入到最接近的10*x：

(for example: 5->10, 6->10, 27->30, 40->40, 56->60, etc)。

单位数字介于1-4之间的数字将四舍五入为0：

(for example: 4->0, 11->10, 12->10, 20->20, etc)。

我想用Math.Round函数来写。

同时，我做了它，没有它：

Dim rest As Integer = r Mod 10
    ' round up
    If rest >= 5 Then
        r = r + (10 - rest)
    Else ' round down
        r = r - rest
End If

任何帮助都很感激！

Answer 1

非常简单地使用Math.Round

Dim roundedDecade as Double, originalNumber as Double
:
roundedDecade = Math.Round(originalNumber / 10, MidpointRounding.AwayFromZero) * 10

如果要强制使用整数，只需使用CDbl和CInt强制进行一些转换。

Dim roundedDecade as Integer, originalNumber as Integer
:
roundedDecade = CInt(Math.Round(CDbl(originalNumber) / 10, MidpointRounding.AwayFromZero) * 10)