?の倍数 Then… するには？ (ID:74689)

名前

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

本文 「倍数」というのは基本的に整数の概念ですので・・・。 ただまあ、「123.4は小数第一位まで考慮して4の倍数か?=商が 小数第一位に収まるか」を知りたいのでしたら、10倍して上の 判定すればいいと思います。 一般に「小数第m位までで割り切れるか？」を判定するには、 if (dblAruKazu * (10^m)) Mod n = 0 Then MsgBox CStr(dblAruKazu) & "は小数第" &CStr(m) & "位までに" & CStr(n) & "でわりきれます。" End If みたいなかんじでいいかとおもいます。