在VB 6

Question

我需要将2个字节转换为VB6中的整数

我目前的字节数组为：

bytArray(0) = 26
bytArray(1) = 85

我假设的结果数字应为21786

我需要将这两个变成一个整数，这样我就可以转换为单个并对其进行额外的算术。

如何获得2个字节的整数？

Answer 1

如果假设值正确，则数组元素对以小端格式存储。因此，以下内容会将两个数组元素转换为带符号的短整数。

Dim Sum As Integer
Sum = bytArray(0) + bytArray(1) * 256

请注意，如果您的元素总和超过32,767（bytArray（1）＆gt; = 128），您将看到发生溢出异常。

Answer 2

您不必先转换为整数，您可以使用@MarkL所示的逻辑直接转换为单个

 Dim Sngl as Single
 Sngl = (bytArray(1) * 256!) + bytArray(0)

编辑：正如@BillHileman所说，这将给出一个无符号的结果。按照他的建议去做签名。