VBA "double"から0.1を引くと・・・

質問

エクセルVBAですが、double型で変数を定義し、-80を代入します。
そこから0.1ずつを引いていきます。すると、途中から桁がおかしくなってしまいます。
(注：別に-80からでなくても、どの値からでも、また、引いていっても足していっても、遅かれ早かれ
どこかから桁がおかしくなってしまいます。)

-80
-80.1
-80.2
…中略
-80.8
-80.8999999999999
-80.9999999999999
…

といった感じです。
どうしてこのようになってしまうのでしょうか。
また、このようにならないためにはどうしたらよいのでしょうか。

いかにサンプルプログラムを載せます。

------------------------------------------
Sub test()
Dim test As Double
Dim i As Integer

test = -80

For i = 1 To 100
test = test - 0.1
Cells(i, 1) = test
Next i
End Sub

----------------------------------

回答No.1

kokorone · ベストアンサー

端的に言えば、コンピュータの宿命というか、そういう仕様です。
http://d.hatena.ne.jp/satakesatake/20090522/1242988375
など、「浮動小数点」でネット検索してみてください。
人間では、０．１という数字ですが、コンピュータの内部では０．１ではないのです。
回避方法としては、有効桁数　この場合、小数点以下１位
ですので、本来の値を１０倍して、整数として計算して、出力時だけ、計算値を１０分の１
のＤｏｕｂｌｅにしてはいかがでしょうか？

お礼

回答ありがとうございます。

浮動小数点の仕組みなんだろうなあと思っていたら、やはり
そうでしたか。

調べてみたら、自己解決しました。

10分の1するのにも、「test*0.1」ではだめで
「test / 10」にすると大丈夫でした。

回答ありがとうございます。

回答No.2

nora1962

浮動小数点型で小数点以下の値を含む場合は基本、誤差を生じます。
ネット検索で「浮動小数点、誤差」で検索すれば詳しい解説が出てきますよ。

対応方法としてはcurrency型やa@のような接尾辞を用いてdecimal型にする（これはかなり古い仕様ですが）あたりでしょうか。

お礼

回答ありがとうございます。

浮動小数点の仕組みなんだろうなあと思っていたら、やはり
そうでしたか。

調べてみたら、自己解決しました。

10分の1するのにも、「test*0.1」ではだめで
「test / 10」にすると大丈夫でした。

回答ありがとうございます。