在VB6中将2个字节转换为整数

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

我目前将字节数组设置为：

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

我假设得到的数字应该是21786

我需要把这2变成一个整数，这样我可以转换成一个单一的，并做额外的算术

---

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

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

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

---

请注意，如果您的元素总和超过32767（bytArray（1）>=128），您将看到发生溢出异常。

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

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

---

编辑：正如@BillHileman所指出的，这将给出一个未签名的结果。按照他的建议做，让它签名。

只要结果小于32767，就可以复制它，否则它应该减去32767并反转符号。