Public Function RationalDivisor( _
ByVal vRational As Variant _
) As Variant RationalDividend(45.75) = 3
RationalDivisor(45.75) = 4
RationalNumber(45.75) = 45
RationalDividend(-45.75) = -3
RationalDivisor(-45.75) = 4 ' #5
RationalNumber(-45.75) = -45See also: RationalDividend 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 divisor (Y). 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 divisor of 1 (one). Note: This function will always return a positive divisor, even if vRational is negative as in example #5. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.