vb.net - 四舍五入到增量 2.5？

Question

我需要将值四舍五入到最接近的 2.5 倍数。

例如:
6 --> 7.5
7.6 --> 10
等等

这似乎是最好的方法？

   Function RoundToIncrement(ByVal originalNumber As Decimal, ByVal increment As Decimal) As Decimal

        Dim num = Math.Round(originalNumber / increment, MidpointRounding.AwayFromZero) * increment
        If originalNumber Mod increment <> 0 And num < originalNumber Then
            num += increment
        End If
        Return num

    End Function

Answer 1

将数字除以 2.5，向上舍入到最接近的整数，然后将结果乘以 2.5。

你已经很接近了。

Function RoundToIncrement(ByVal orignialNumber As Decimal, ByVal increment As Decimal) As Decimal
    Return Math.Ceiling( orignialNumber / increment ) * increment
End Function

Math.Ceiling 将始终将非整数向上舍入，因此您不需要进行后调整。