Question

如何在VB6中将数字截断为特定的小数位数？

Answer 1

TruncatedNumber = Int ( OriginalNumber * 100 ) / 100 'Truncate to 2 decimals.
TruncatedNumber = Int ( OriginalNumber * 1000 ) / 1000 'Truncate to 3 decimals.
TruncatedNumber = Int ( OriginalNumber * 10000 ) / 10000 'Truncate to 4 decimals.

Int（）返回数字的整数部分。

示例01：截断3.1415到2位小数。

3.1415 x 100等于314.15
Int（314.15）返回314
314/100等于3.14

示例02：截断3.1415到3位小数。

3.1415 x 1000等于3141.5
Int（3141.5）返回3141
3141/1000等于3.141

Answer 2

我同意上面的Complise：如果目标是截断，则Fix是比Int更好的选择

Function TrimDigits(val As Double, Optional numdig As Integer = 2) As Double
Try
    Return Fix(val * 10 ^ numdig) / 10 ^ numdig
Catch ex As Exception
    Return 0
End Try

结束功能

Answer 3

我将使用fix（）而不是int（），以便不更改负数并且不进行舍入，如format（）

？ int（-8.666 * 100）/ 100，修复（-8.666 * 100）/ 100

-8.67 -8.66

Answer 4

我会使用格式：

Dim d as Double
d = CDbl(Format("123.22323263",".0000"))

如何在VB6中截断到特定的小数位数？

4 个答案: