CVL

Преобразует число с плавающей запятой одинарной точности(single) или 4 байтовую строку в целое число (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

String по крайней мере четыре байта длиной с копией двоичной целочисленной переменной хранящейся в ней.

Возвращаемое значение

Переменная Long с копированной бинарной копией.

Описание

Возвращает 32-битное Long целочисленное значение, используя двоичные данные, содержащиеся в Single, или в 4-байтовой String. Возвращается значение ноль (0) если строка меньше 4 байт в длину.

CVL используется для преобразования строки 4-байтов, созданной с помощью MKL.

Эта функция также может использоваться для преобразования 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 не поддерживает аргументы с плавающей запятой.

См. также