VBAで定数を利用する－消費税率のデータ型は通貨型

金額の変数、税率は通貨型（Currency）

消費税率のデータ型について
SingleおよびDoubleでは、小数計算において、誤差が生じる場合があるので、
通貨型（Currency：15ケタの整数と4ケタの小数部分の数値）を使用します。
（参考：エクセルの神髄：VBAの小数以下の演算誤差について）

宣言セクションで消費税率を宣言
Const 消費税率 As Currency = 0.08

Sub 定数()
  Dim 数量 As Integer
  Dim 本体価格 As Currency
  Dim 消費税額 As Currency
  数量 = 1
  本体価格 = 2000
  消費税額 = Int(本体価格 * 数量 * 消費税率)
  MsgBox "消費税額は　" & 消費税額 & "円です"
End Sub