vba - 数字四舍五入

Question

我有以下由 VBA 在 MS Access 2010 中编写的代码。此代码在 Label1.caption 中打印此方程式的编号。

the_average = CDbl(TextBox1.Text) * 2 / 3 + CDbl(TextBox2.Text) / 3
the_average = Format(the_average, "#.###")
Label1.caption= the_average

一些运算的小数点后三位以上。当在标签的标题中打印数字时，此代码会将数字四舍五入。例如，如果我有 1.66666666，它会显示 1.667，我希望它显示 1.666 而无需四舍五入。我怎样才能做到这一点？提前致谢

score 1 · Accepted Answer

the_average = CDbl(TextBox1.Text) * 2 / 3 + CDbl(TextBox2.Text) / 3
the_average = Format(the_average, "#.####")
Label1.caption= Left(the_average,5)

If your final string can vary in length, you will have to use the InStr() function (I believe that's it).

score 0 · Accepted Answer

您可以利用Int()' 截断；

the_average = formatnumber(int(the_average * 1000) / 1000, 3)

formatnumber如果您不想要尾随零 (.99 -> .990)，则可以省略

2 回答 2