Public Function RationalDividend( _ ByVal vRational As Variant _ ) As Variant
RationalDividend(45.75) = 3 RationalDivisor(45.75) = 4 RationalNumber(45.75) = 45 RationalDividend(-45.75) = -3 ' #4 RationalDivisor(-45.75) = 4 RationalNumber(-45.75) = -45See also:
RationalDivisor Function RationalNumber Function RationalToFraction FunctionvRational: Function converts the fractional part of vRational to a fraction (X/Y where X & Y are integers) then returns the dividend (X). Function returns Null if vRational is Null or cannot be fixed up to a number. Note: When vRational is an integer, this function returns a dividend of 0 (zero). Note: When vRational is negative, the dividend returned by this function will be negative as in example #4.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.