CVLongInt
Converts a double-precision floating-point number or eight-byte string to a LongInt variable
Declare Function CVLongInt ( ByVal dbl As Double ) As LongInt
Declare Function CVLongInt ( ByRef str As Const String ) As LongInt
result = CVLongInt( dbl )
result = CVLongInt( str )
dbl
str
Returns a 64-bit LongInt value using the binary data contained in a Double, or a String of at least eight bytes in length. A value of zero (0) is returned if the string is less than eight bytes in length.
CVLongInt is used to convert 8-byte strings created with MKLongInt.
This function can also be used to convert 64-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 CVLongInt to convert strings that have been read from a buffer.
Syntax
Declare Function CVLongInt ( ByVal dbl As Double ) As LongInt
Declare Function CVLongInt ( ByRef str As Const String ) As LongInt
Usage
result = CVLongInt( dbl )
result = CVLongInt( str )
Parameters
dbl
str
Return Value
Description
Returns a 64-bit LongInt value using the binary data contained in a Double, or a String of at least eight bytes in length. A value of zero (0) is returned if the string is less than eight bytes in length.
CVLongInt is used to convert 8-byte strings created with MKLongInt.
This function can also be used to convert 64-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 CVLongInt to convert strings that have been read from a buffer.
Example
Dim ll As LongInt, s As String
s = "ABCDEFGH"
ll = CVLongInt(ll)
Print Using "s = ""&"""; s
Print Using "ll = _&H&"; Hex(ll)
s = "ABCDEFGH"
ll = CVLongInt(ll)
Print Using "s = ""&"""; s
Print Using "ll = _&H&"; Hex(ll)
Differences from QB
- In QB an error occurs if the string passed is less than eight bytes in length.
- QB did not support floating-point arguments.
See also