VB6で浮動少数型のMOD剰余を求めるには？ (ID:82911)

名前

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

本文 書き込みありがとうございます。 早速試してみたのですが、うまくいきませんでした。 というのは たとえば 入力値が 0.1単位であるかとか 0.5単位か判断したい わけですが、以下のような判断文ですとうまくいきませんでした。 おそらくまるめ誤差が発生しているものと思います。 Private Sub Command1_Click() Dim a As Double Dim b As Double Dim c As Double a = 1.2 b = 0.1 c = fmod2(a, b) If c = 0 Then Call MsgBox("OK : " & c) Else Call MsgBox("NG : " & c) End If End Sub Public Function fmod(a As Double, b As Double) As Double fmod = a - Int(a / b) * b End Function どうしたものでしょうか。 初心者で申し訳ありません。