Private Sub ExponentPartVerify() ' Test the ExponentPart function. Debug.Assert ExponentPart(-1.23E-15) = -15 Debug.Assert ExponentPart(0.00123) = -3 Debug.Assert ExponentPart(-0.0123) = -2 Debug.Assert ExponentPart(0.123) = -1 Debug.Assert ExponentPart(-1.23) = 0 Debug.Assert ExponentPart(12.3) = 1 Debug.Assert ExponentPart(-123) = 2 Debug.Assert ExponentPart(1230) = 3 Debug.Assert ExponentPart(-12300) = 4 Debug.Assert ExponentPart(1.23E+15) = 15 Debug.Assert IsNull(ExponentPart(Null)) Debug.Assert IsNull(ExponentPart("Joe")) End Sub
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.