CVL

将单精度浮点数或四字节字符串转换为整数（Long）变量

语法

Declare Function CVL ( ByVal sng As Single ) As Long Declare Function CVL ( ByRef str As Const String ) As Long

用法

result = CVL( sng ) result = CVL( str )

参数

sng

一个Single浮点数，其中存储有整数变量的二进制副本。

str

A String长度至少为四个字节，存储在其中的整数变量的二进制副本。

返回值

将整数的二进制副本复制到的Long变量。

说明

使用长度为至少四个字节的Single或String中包含的二进制数据返回32位Long整数值。如果字符串长度小于四个字节，则返回值为零（0）。

CVL用于转换使用MKL创建的4字节字符串。

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

例子

Dim l As Long, s As String s = "ABCD" l = CVL(s) Print Using "s = ""&"""; s Print Using "l = &"; l

与QB差别

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

参考