VB6にて、小数（Double）から整数（Integer）への暗黙変換時の切捨/切上のルールについて

Question

VB6にて、小数（Double）から整数（Integer）への暗黙変換時の切捨/切上のルールについて

VB6からVB.NETへのコンバートをした際に、
それぞれの言語で少数部が”5”のとき、小数（Double）から整数（Integer）への暗黙変換時の値が異なりました。
VB.NETは銀行丸め（偶数丸め）となることは理解できたのですが、VB6の仕様が不明です。
VB6の少数部が5であるときの、切捨/切上の仕様を教えていただけますでしょうか。

例

【例1】小数 → 整数（暗黙変換）
VB6：360.5→361　奇数に切上される
.NET：360.5→360　偶数に切捨てられる

【例2】小数 → 整数（暗黙変換）
VB6：367.5→368　偶数に切上される
.NET：367.5→368　偶数に切上される

補足

VB6はランダムに切捨/切上を行っているわけではなく、「360.5」であれば必ず「361」となり、
何かしらの法則を持っているように見えます。

Comments

[KOZ6.0]

Dim dblValue As Double
Dim intValue As Integer
dblValue = 360.5
intValue = dblValue
Debug.Print intValue
VB6 も 360 になりませんか？
銀行家の丸めになるはずですが・・・

[apple_159]

投稿をありがとうございます。

すみません。状況が正確ではありませんでした。
Integer＊Doubleの結果をInteger型に格納する際に発生しております。
【例】
350*1.03=360（Integer型）

[KOZ6.0]

回答のほうに転記しました。

[KOZ6.0]

回答のほうに転記しました。

[apple_159]

わかりやす例をありがとうございます。

つまり、
VB6では演算を内部的には2進数で行っており、その際に2進数では「1.03」を表現しきれない（桁落ちしている？）ため、演算結果が変わっているという理解でよろしいでしょうか？

もし認識に誤りがなければベストアンサーとさせていただきたいため、回答のほうに投稿をお願いいたします。

[cx20]

蛇足ですが、VBScript だと、
WScript.Echo CInt(CInt(350) * CDbl(1.03))
は 361 でなく 360 でした。（VB6 と同じ結果になると思ったのですが・・）

Answer 1

1.03 は２進数に変換できないので、内部的には 350 * 1.03 = 360.5 にはなりません。
たぶん、360.5 よりちょっと大きくなっていると思われます。

Dim intValue1 As Integer
Dim intValue2 As Integer
Dim intValue3 As Integer
intValue1 = 360.5
intValue2 = 350 * 1.03
intValue3 = CLng(350) * 103 / 100
Debug.Print intValue1
Debug.Print intValue2
Debug.Print intValue3
結果
360
361
360

もういっちょ実験

Dim dblValue As Double
Dim i As Integer
dblValue = 0
For i = 1 To 100
    dblValue = dblValue + 1.03
Next
Debug.Print dblValue
Debug.Print dblValue = 103
Debug.Print dblValue > 103
Debug.Print dblValue < 103
結果
 103 
False
True
False

1.03 は内部的には 1.03 より大きい値となっているようですね。
Debug.Print dblValue で 103 と表示されるのが厄介です。

VB.NET の動きを VB6 に合わせるとなると悩ましいですね。
金額計算であれば、Double を使ってた前任者が悪い！ということで逃げちゃいますかね・・・

Answer 2

浮動小数点の性なんでDoubleにせずCurrecyとかを使う方がいいと思います。

vbaでも以下のようになります。

?cint(350*ccur(1.03))
 360 
?cint(350*cdbl(1.03))
 361 

Comments

[apple_159]

回答をありがとうございます。
本来は暗黙変換は使用しないほうがいいと思っておりますが、今回はVB6からマイグレーション時に発見した事象となり、.NETでVB6と同じ挙動としたことが目的になります。

[sousuke]

仕様の理解が質問の内容でしたね。ごめんなさい。
多分ですけど.netとvb6のdouble型は同じdouble型でもサイズが違うはずです。
なので浮動小数の誤差が出るタイミングが違うだけで
「vb6では正しくなるけど、.netでは正しくならない」部分や
「両方とも正しくならない」部分がいつかでるのではないかと予想します。
?0.1*3=0.3
False
個人的には上記のような感じになるので仕様の理解というのはあまり
必要性を感じておらず、「やってはいけないこと」として理解しています。