Public Function MakeSingle( _
ByVal vValue As Variant _
) As Variant MakeSingle(0) = Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0)
MakeSingle(1) = Chr$(0) + Chr$(0) + Chr$(128) + Chr$(63)
MakeSingle(2) = Chr$(0) + Chr$(0) + Chr$(0) + Chr$(64)
MakeSingle(2.5) = Chr$(0) + Chr$(0) + Chr$(32) + Chr$(64)
MakeSingle("2") = Chr$(0) + Chr$(0) + Chr$(0) + Chr$(64)
IsNull(MakeSingle(Null)) = TrueSee also: MakeSingleFast Function
CoerceToSingle Function
MakeDouble FunctionvValue: The Single (precision floating-point numeric) value whose bytes are to be interpreted as a string. vValue can be a numeric value, a date value, a numeric string, or a date string. Function returns Null if vValue is Null. Function returns an empty string if vValue cannot be fixed up to a number. Note: This function converts the string representation of the value to Unicode using the default code page of the system.
v1.3 Change: Removed 16-bit support from this function.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.