“VBA konvertieren 2 Bytes in eine Ganzzahl” Code-Antworten

VBA konvertieren 2 Bytes in eine Ganzzahl

Public Function MakeInteger%(LoByte As Byte, HiByte As Byte)
  If HiByte And &H80 Then
    MakeInteger = ((HiByte * &H100&) Or LoByte) Or &HFFFF0000
  Else
    MakeInteger = (HiByte * &H100) Or LoByte
  End If
End Function