Currency (通貨型)に関して教えてください

質問

Currency (通貨型)に関して教えてください。(VB5です)

Private Sub Command1_Click()
Dim a As Currency
a = 222222
For i = 1 To a
Next i
End Sub
上のコードではFor文が一度も実行されずに終わってしまいます。

Private Sub Command1_Click()
Dim a As Currency
a = 22222
For i = 1 To a
Next i
End Sub
これだとちゃんとiが22222まで実行されます。
一体どうしてでしょうか。

よろしくお願いします。

回答No.4

dsuekichi · ベストアンサー

下記の様なプログラムを試してみました。
------------------------------
Private Sub Command1_Click()
Dim a As Currency
Dim i As Variant, j As Long

For j = 1 To 222222
a = j
For i = 1 To a Step 1
Next i
If i = 1 Then
Debug.Print j, i
Stop
End If
Next j

End Sub
------------------------------
214749で、ループが回らなくなりますね。
で、「214749」とは・・・
Currency型って、整数値を１万分の１にして小数値ぽく見せるデータ型ですよね。
つまり、「214749」は内部的には「2147490000」と言う整数値で格納されているんだと思います。
で、「2147490000」って・・・
Long型の最大値である、「2147483647」をちょうど越えた値です。
＃つまり、符号ビットが切り替わる箇所。

No1さんが言われているように符号処理を間違えてしまっているっぽいですね。

実際
---------------------------------------------
Private Sub Command1_Click()
Dim a As Currency
a = 222222
For i = 1 To a Step -1
Next i
End Sub
-------------------------------------------
とすると、「-1」までループしますし・・・

お礼

VBのバグだったんですね。
原理までつきとめていただいてありがとうごさいます。
Currency型って使わない方がいいみたいですね。
ありがとうございました。

回答No.3

noname#22222

ウーン！
この現象はVB6.0でも確認されますね。

Private Sub Command1_Click()
Dim a As Currency
Dim i As Variant

a = 222222
For i = 1 To a
Next i
Debug.Print i
End Sub

[イミディエイト]
1

Private Sub Command1_Click()
Dim a As Currency
Dim i As Currency

a = 222222
For i = 1 To a
Next i
Debug.Print i
End Sub
[イミディエイト]
1

Private Sub Command1_Click()
Dim a As Currency
Dim i As Long

a = 222222
For i = 1 To a
Next i
Debug.Print i
End Sub

[イミディエイト]
222223

つまり、For 文では Currency は使えないようです。
多分、想定外ではないのでしょうか？

お礼

>つまり、For 文では Currency は使えないようです。
>多分、想定外ではないのでしょうか？

そうみたいですね。
VBで財務ソフト作っていたら大変なことになってしまうとこでした。
ありがとうございました。

回答No.2

JAWS55

VB5は忘れてしまっているかも知れませんが、たしかint型は16bit?
a=222222 では、オーバーフローして内部では マイナスの数値になっているのかも知れません。
i を Long int にしても実行されませんか？

お礼

iをLongにしたらうまくいきました。
どうやらＶＢのバグみたいです。
ありがとうございました。

回答No.1

php504

変数 i の型はなんでしょうか

お礼

iは宣言してませんでした。
どうやらＶＢのバグみたいです。
ありがとうございました。