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

名前

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

本文 oku様、書き込み有難うございます。 通貨型で問題なく解決できました。 今回はまことに有難うございました。m(__)m 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 fmod2(ByVal a As Currency, ByVal b As Currency) As Currency fmod2 = a - Int(a / b) * b End Function