Public Function CoerceSingleToLong( _ ByVal vValue As Single _ ) As Long
CoerceSingleToLong(1) = 1065353216 CoerceSingleToLong(2) = 1073741824 CoerceSingleToLong(1.401298E-45) = 1 CoerceSingleToLong(2.802597E-45) = 2See also:
CoerceLongToSingle Function MakeSingle Function CoerceToLong FunctionNote: Similar to but faster than using the MakeSingle and CoerceToLong functions.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.