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

名前

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

本文 はじめまして。 初心者です。 VB6.0において、剰余を求めるMOD関数は浮動少数に対応していないのですが、 これらを実現するのに何かいい方法はございますでしょうか？ ランタイムにあるfmodのような関数が理想ですが。 現在はVB6.0で Public Function fmod(src1 As Double, src2 As Double) As Double fmod = (src1 * 10) Mod (src2 * 10) End Function としています。 これは、少数１桁のみ対応ですが、２桁となると値をまるめてしまいます。 どなたかいい方法があればご教授願います。