アクセスVBAで四捨五入

質問

アクセスVBAでROUND関数を用いると、"銀行型"という丸めになります。これをエクセルシートのROUND関数と同じように"算術型"にする方法を教えてください。

回答No.4

mshr1962 · ベストアンサー

回答の式自体は#1の方と同じですがユーザー定義関数にすることをお奨めします。
モジュールにて
Function ROUNDX(SUTI As Double, KETA As Integer) As Double
Select Case SUTI
Case Is < 0
ROUNDX = -Int(-SUTI * 10 ^ KETA + 0.5) / 10 ^ KETA
Case Else
ROUNDX = Int(SUTI * 10 ^ KETA + 0.5) / 10 ^ KETA
End Select
End Function

これでROUNDX(数値,桁数)とすれば計算できます。

お礼

イッペー（とても）ニヘーデービル（ありがとうございます）。問題が解決しました。これからもいろいろなことを質問するかもしれません、よろしくお願いします。

回答No.3

BLUEPIXY

Application.WorksheetFunction.Round(2.5, 0)
という形で、ワークシート関数を呼び出すことができます。

お礼

あちがとうございました！！エクセルVBAで可能になることが確認できました。参考になりました

回答No.2

nandarou-1011

何桁目で丸めるかによりますが、仮に小数点以下を丸めたい場合、
　INT(数値 + 0.5)
とすれば四捨五入されます。

お礼

ありがとうございました！！これからもよろいしくお願いします。

回答No.1

popesyu

http://support.microsoft.com/default.aspx?scid=kb;ja;418216
ありませんので自分で作る必要があります。
こんな感じ。
If X > 0 Then
　X = Int(X + 0.5)
Else
　X = Int(X - 0.5)
End If

お礼

ありがとうございました！！これからもよろしくお願いします。