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.