CVDfunction

Converts a 64-bit integer or 8-byte string to a double-precision value

Syntax

Declare Function CVD ( ByVal l As LongInt ) As Double

Declare Function CVD ( ByRef str As Const String ) As Double

Parameters

Name		Description
`l`		A 64-bit `LongInt` with a binary copy of a double-precision variable stored in it.
`str`		A `String` at least 8 bytes in length with a binary copy of a double-precision variable stored in it.

Return value

Returns a Double value holding a binary copy of the input value.

Description

Does a binary copy from a 64-bit LongInt or 8-byte String to a Double variable. A value of zero (0.0) is returned if the string is less than 8 bytes in length. The result will make sense only if the parameter contained a IEEE-754 formatted double-precision value, such as one generated by CVLongInt or MKD.

This function is useful to read numeric values from buffers without using a Type definition.

Remarks

Usage



result = CVD( l )

result = CVD( str )

Differences from QB

QB did not support integer arguments.

Example

Dim d As Double, l As LongInt

d = 1.125

l = CVLongInt(d)



Print Using "l = _&H&"; Hex(l)

Print Using "cvd(i) = &"; CVD(l)

Reference

Documented in KeyPgCvd.html