我有一个 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)
有没有更好的功能来做到这一点?