［Access VBA］数値の四捨五入を行う

Access VBAには四捨五入を行う関数はないので、int関数を組み合わせて計算をする必要がある。

なお、ここで行う四捨五入とは、小数点以下第一位の数値が5以上の場合は小数点以下を0にして（切り捨てて）一の位を一増やす、5未満の場合は小数点以下を切り捨て一の位をそのままにすることである。以下、四捨五入の例。

2.4 → 2.0
2.5 → 3.0
2.6 → 3.0
3.4 → 3.0
3.5 → 4.0
3.6 → 4.0

例えば、変数a代入されている数値を四捨五入して変数bに代入する場合は、以下のようにすればよい。

a = 2.5
b = int(a + 0.5)
debug.print
（出力結果）
3

小数点以下第二位の数値で四捨五入を行う場合は、以下のようにする。

a = 2.225
b = Int(a * 100 + 0.5) / 100
Debug.Print b
（出力結果）
2.23

上記の例では、第二位で四捨五入をするためにint関数内で変数aに100を掛け、int関数の外で100で割っている。これを第三位にするのであれば、それぞれ1000となる。