CVLongInt

将双精度浮点数或八字节字符串转换为LongInt变量

语法

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

具有存储在其中的LongInt变量的二进制副本的Double浮点数。

str

一个String至少八个字节的长度，存储在其中的LongInt变量的二进制副本。

返回值

一个保存输入变量的二进制副本的LongInt变量。

说明

使用长度为至少八个字节的Double或String中包含的二进制数据返回64位LongInt值。如果字符串长度小于8个字节，则返回值为零（0）。

CVLongInt用于转换使用MKLongInt创建的8字节字符串。

此函数也可用于从内存或文件缓冲区转换64位整数值，而不需要Type结构。但是，与类型结构一样，使用CVLongInt转换已从缓冲区读取的字符串时，应特别小心。

例子

Dim ll As LongInt, s As String s = "ABCDEFGH" ll = CVLongInt(ll) Print Using "s = ""&"""; s Print Using "ll = _ &H &"; Hex(ll)

与QB差别

在QB中，如果传递的字符串长度小于8个字节，则会发生错误。
QB不支持浮点参数。

参考