12桁以上の演算をするには？ (ID:107045)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 整数を対象とした１４桁程度までの計算では通貨型に変換した方が誤差は少ない様です。下記の例ではText1とText2にデータを入れてText5に余りを表示しています。１０進数に変換すると大きな数字が使えますが誤差が出て答えが合いませんでした。 Private Sub Command1_Click() Dim c c = CCur(Text1.Text) / CCur(Text2.Text) '通貨型変数 Text3.Text = c Text4.Text = Int(c) Text5.Text = CCur(Text1.Text) - CCur(Text4.Text) * CCur(Text2.Text) End Sub