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