CVS
Converts a 32-bit integer or 4-byte string to a single-precision variable
Declare Function CVS ( ByVal i As Integer ) As Single
Declare Function CVS ( ByRef str As Const String ) As Single
result = CVS( i )
result = CVS( str )
Does a binary copy from a 32-bit Integer or 4-byte String to a Single variable. A value of zero (0.0) is returned if the string is less than 4 bytes in length. The result will make sense only if the parameter contained a IEEE-754 formatted single-precision value, such as one generated by CVI or MKS.
This function is useful to read numeric values from buffers without using a Type definition.
Syntax
Declare Function CVS ( ByVal i As Integer ) As Single
Declare Function CVS ( ByRef str As Const String ) As Single
Usage
result = CVS( i )
result = CVS( str )
Parameters
Return Value
Description
Does a binary copy from a 32-bit Integer or 4-byte String to a Single variable. A value of zero (0.0) is returned if the string is less than 4 bytes in length. The result will make sense only if the parameter contained a IEEE-754 formatted single-precision value, such as one generated by CVI or MKS.
This function is useful to read numeric values from buffers without using a Type definition.
Example
Dim f As Single, i As Integer
f = 1.125
i = CVI(f)
Print Using "i = _&H&"; Hex(i)
Print Using "cvs(i) = &"; CVS(i)
f = 1.125
i = CVI(f)
Print Using "i = _&H&"; Hex(i)
Print Using "cvs(i) = &"; CVS(i)
Differences from QB
- QB did not support integer arguments.
See also