Public Function ExponentPart( _ ByVal vX As Variant _ ) As Variant
ExponentPart(.00123) = -3 ExponentPart(-.0123) = -2 ExponentPart(.45) = -1 ExponentPart(1.2) = 0 ExponentPart(-1234) = 3 ExponentPart(12345) = 4 ExponentPart(1.23E4) = 4See also:
ExponentPartVerify Subroutine Mantissa Function Sgn Function (Visual Basic)vX: Real number whose exponent is returned. Function returns Null if vX is Null or cannot be fixed up to a number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.