AccessVBAの演算誤差について

Question

AccessのVBAにて演算処理を行っていたところ、演算誤差が発生しました。
該当のコードではないですがその個所を抜粋したサンプルが以下になります。

Private Function test()

    Dim item1 As String
    Dim item2 As Single
    Dim item3 As Single
    
    item1 = "500"
    item2 = 0.08
    item3 = 5
    
    Debug.Print 500 * 0.08 * 5
    Debug.Print Val(item1) * item2 * item3

End Function

調べてみると、演算誤差を発生させないように通貨型を使用した方が良い（？）との記事をみかけます。
実際に以下コードに修正すると演算誤差は発生しません。

Private Function test()

    Dim item1 As String
    Dim item2 As Currency
    Dim item3 As Currency
    
    item1 = "500"
    item2 = 0.08
    item3 = 5
    
    Debug.Print 500 * 0.08 * 5
    Debug.Print Val(item1) * item2 * item3

End Function

今回初めてこのようなケースにでくわしたのですが、
小数点演算を行う場合、AccessのVBAでは通常Currency型を使うことがお決まりなのでしょうか。
（double型も問題なかったのですが、それは今回のケースではたまたまうまくいったということでしょうか。）

Answer 1

Doubleは、2進数の浮動小数点型なので、2の冪乗の有限個の和で表せない数は正確に表現できません。
つまり、・・・・, 64, 32, 16, 8, 4, 2, 1, 0, 0.5, 0.25, 0.125, 0.0625, ・・・
の有限個（有効桁数の範囲内で）の和である事が必要です。

0.1 や 0.08 はこれに該当しないので、正確に表現できません。

全ての整数はこれに該当するので、doubleであっても整数であれば有効桁数の範囲内で正確に表現できますし、Integer等の整数型も2進数ですが、整数なので有効桁数の範囲内で正確です。

なお、正確に表現できない数を含んだ計算であっても、結果丸めの関係で、正確に計算できてるっぽく見える事はあります。

Currencyも内部は2進数なのですが、整数型であり、値を10,000倍してから変数に格納しているので、小数点以下4桁までは正確に表現できます。変数から取り出すときにまた10,000で割ります。

Answer 2

コンピューターのプログラムの世界では、浮動小数点には誤差があるというのは常識です。
「浮動小数点 誤差」でWEB検索するとやまほど解説ページが見つかりますので、一度、目を通しておくことをお勧めします。

ということで、

小数点演算を行う場合、AccessのVBAでは通常Currency型を使うことがお決まりなのでしょうか。

小数点以下4桁までで誤差が許容されない仕様なら、そうなります。
もともと、誤差が含まれている実験結果の計測値などの演算で、小数点4桁以上の精度が必要なら、浮動小数点型を選択します。

誤差も許容できなく小数点4桁以上の精度が必要なら十進型になりますが、そのような場合はあまりないかと思います。十進型はパフォーマンスが悪いし、いろいろ制限があったと思いますので、めったに使われてないと思います。

Comments

[syncrock]

回答ありがとうございます。
>小数点以下4桁までで誤差が許容されない仕様なら、そうなります。
そこまでの精度で問題ないので、お決まり（常識？）という点了解しました。
誤差について軽く調べたもののあまりピンとこなかったので、もう少し調べようと思います。

Answer 3

CREATE TABLE 等での型指定に DECIMAL を使用する場合は、
DAO ではなく ADO で実行する必要があります。

Answer 4

浮動小数点付のデータ型では誤差が生じます。
十進型や通貨型の使用をお薦めします。
尚、データ定義クエリーでの、create table等の型指定に、十進数(decimal)は使用できませんのでご注意下さい。

Comments

[sousuke]

Accessのテーブルで数値型選んでフィールドサイズを「十進型」に
すればとりあえずは十進型になりませんでした？
DDLでは不可能だったのは覚えがあるんですがGUIではできたと思います。

[sazi]

GUIでは可能ですね。
質問されている環境ではどのようにされているか分からなかったので、蛇足です。

[sazi]

蛇足ついでに、2016から追加されたbigintに対応する、「大きい数値」はDDLで定義できないのでイラっとします。
XMLでエクスポート/インポートするとエラーになったり型が変わったりするので、さらにイライラが・・・