EXCELの関数を利用する。 Microsoft Excel11.0 Objects Library
'EXCELの関数を使って、結果を求めます。
'[ツール]-[参照設定]、[Microsoft Excel 11.0 Objects Library] をチェックすることが必要です。
'ACCESSのバージョンにより参照先のバージョンが違います。
'環境に合わせ、チェックしなおすことが必要になります。
'四捨五入、切捨、切上の関数使用例です。
Private Sub cmdTEST_Click()
'EXCELの関数を使う。
'[ツール]-[参照設定]、[Microsoft Excel 11.0 Objects Library] をチェック
'EXCELの関数を使って計算します。
Me.四捨五入 = Excel.Application.Round(Me.金額 * 0.05, 0)
Me.切捨 = Excel.Application.RoundDown(Me.金額 * 0.05, 0)
Me.切上 = Excel.Application.RoundUp(Me.金額 * 0.05, 0)
'結果から合計を計算します。
Me.計四捨五入 = Me.金額 + Me.四捨五入
Me.計切捨 = Me.金額 + Me.切捨
Me.計切上 = Me.金額 + Me.切上
End Sub