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.