vba - 数値の丸め

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

一部の演算には、小数点以下 3 桁を超えるものがあります。このコードは、ラベルのキャプションに数値を印刷するときに数値を丸めます。たとえば、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)

最終的な文字列の長さが異なる場合は、InStr()関数を使用する必要があります (それだけだと思います)。

score 0 · Accepted Answer

Int()の切り捨てを利用できます。

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

formatnumber末尾のゼロが必要ない場合は省略できます (.99 -> .990)

2 に答える 2