數字取整

Question

我在MS Access 2010中使用VBA編寫了以下代碼。此代碼在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沒有四捨五入。 我該怎麼做？ 在此先感謝

Answer 1

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

如果最終字符串的長度可以變化，你將不得不使用InStr()功能（我認爲就是這樣）。

Answer 2

您可以利用Int()的截斷;

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

可以省略formatnumber如果你不想尾隨零（0.99 - > 0.990）