CVL
Converts a single-precision floating-point number or four-byte string to an integer (`Long`) variable
Syntax
`
Declare Function CVL ( ByVal sng As Single ) As Long
Declare Function CVL ( ByRef str As Const String ) As Long
`
Usage
`
result = CVL( sng )
result = CVL( str )
`
Parameters
`sng`
A `Single` floating-point number with a binary copy of an integer variable stored in it.
`str`
A `String` at least four bytes in length with a binary copy of an integer variable stored in it.
Return Value
A `Long` variable to copy the binary copy of a integer to.
Description
Returns a 32-bit `Long` integer value using the binary data contained in a `Single`, or a `String` of at least four bytes in length. A value of zero (`0`) is returned if the string is less than four bytes in length.
`CVL` is used to convert 4-byte strings created with `MKL`.
This function can also be used to convert 32-bit integer values from a memory or file buffer without the need for a `Type` structure. However, just as with the type structure, special care should be taken when using `CVL` to convert strings that have been read from a buffer.
Example
`
Dim l As Long, s As String
s = "ABCD"
l = CVL(s)
Print Using "s = ""&"""; s
Print Using "l = &"; l
`
Differences from QB

- In QB an error occurs if the string passed is less than four bytes in length.
- QB did not support floating-point arguments.

See also

- `MKL`
- `CVShort`
- `CVI`
- `CVLongInt`