丸め処理の対策はどうすれば良い？

ＶＢでプログラムしているのですが

小数点の丸め処理で困っています

対策として
よく「Currency型にすれば良い」
というのは
見るのですが

Currency型にすると
小数点第４桁までしか
あつかえません

小数点第４桁以下
計算の計算も正確に
したい場合は
どうすれば良いのでしょうか？
宜しくお願いします

No.5 回答者： noname#22222 回答日時： 2006/03/21 08:07

s_husky です。

昨晩は、型を示しただけでしたので補足します。

Double型を利用した場合、有効桁数=小数点以下第５位という考えを採用することになると思います。
そういう意味では、次のように小数点以下第６位、第７位の丸めが問題になります。

? Rounds(0.000015, 0, 5)' 0=四捨五入
0.00002
? Rounds(0.000019, 1, 5)' 1=切り捨て
0.00001
? Rounds(0.000011, 2, 5)' 2=切り上げ
0.00002
? Rounds(0.0000007, 1, 6)' 無条件切り捨て
0
? Rounds(Rounds(0.0000101, 1, 6), 2,5) <-- 7桁以下は切り捨て６桁を切り上げる
0.00001

Public Function Rounds(ByVal M As Double, _
　　　　　　　　　　　 ByVal A As Integer, _
　　　　　　　　　　　 Optional D As Integer = 0) As Variant
　　　　Rounds = Sgn(M) * Fix(Abs(M) * 10 ^ D + Abs((A = 0) * 0.5@ + (A = 2) * (Int(M * 10 ^ D) <> (M * 10 ^ D)))) / 10 ^ D
End Function

※Double型を使えば全てが解決する訳ではないので補足した次第です。

この回答へのお礼

回答ありがとう御座います

お礼日時：2006/03/22 13:50

No.4 回答者： noname#22222 回答日時： 2006/03/20 22:08

s_husky です。

Private Sub コマンド0_Click()
　　Dim dblA As Double
　　
　　dblA = 0.11111
　　MsgBox dblA
End Sub

という手もあります。

No.3 回答者： noname#22222 回答日時： 2006/03/20 21:09

Currency型にすると小数点第４桁までしかあつかえません

意味が判りません！
具体例で示してもらえますか？

この回答への補足

すみません
たとえば

Dim curA As Currency

curA = 0.11111

としても
curAには0.1111
しか入らないということです

これではcurAを
つかって正確な計算が出来ない
事が問題と言うことです

補足日時：2006/03/20 21:22

No.2 回答者： otto0001otto 回答日時： 2006/03/20 20:30

四捨五入でいいですか？

Format関数を使います。

この回答へのお礼

回答ありがとう御座います

お礼日時：2006/03/22 13:49

No.1 回答者： BLUEPIXY 回答日時： 2006/03/20 20:20

勘違いしてたらごめんなさい。

Currency 型は、小数点４桁ですが、要は、６４ビットの整数と同じですから、
仮に１００００してあるとして計算すれば、小数点８桁の計算ができます。

この回答へのお礼

回答ありがとう御座います

お礼日時：2006/03/22 13:49