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.