質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.96%

AccessVBAの演算誤差について

解決済

回答 4

投稿

  • 評価
  • クリップ 0
  • VIEW 1,432

score 200

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型も問題なかったのですが、それは今回のケースではたまたまうまくいったということでしょうか。)

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

+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で割ります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

checkベストアンサー

0

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

ということで、

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/03/08 13:53

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

    キャンセル

0

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/03/08 12:05

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

    キャンセル

  • 2019/03/08 12:10

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

    キャンセル

  • 2019/03/08 12:21

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

    キャンセル

0

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.96%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る