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.