vb.net - 在 Visual Basic 中四舍五入一个数字

Question

我有一个需要向下舍入数字的 Visual Basic 应用程序，例如，2.556 将变为 2.55 而不是 2.26。

我可以使用一个函数来做到这一点，使用这个函数从小数点开始去除超过 2 个字符:

Dim TheString As String
TheString = 2.556
Dim thelength = Len(TheString)
Dim thedecimal = InStr(TheString, ".", CompareMethod.Text)
Dim Characters = thelength - (thelength - thedecimal - 2)
_2DPRoundedDown = Left(TheString, Characters)

有没有更好的功能来做到这一点？

Answer 1

你可以用 Math.Floor 来做到这一点.但是，您需要乘以 * 100 并除以，因为您无法提供多个数字

Dim theNumber as Double
theNumber = 2.556
Dim theRounded = Math.Sign(theNumber) * Math.Floor(Math.Abs(theNumber) * 100) / 100.0