MakeInteger

上位・下位バイトを与えて整数値(Integer)を取得する

Function MakeInteger(ByVal UpperByte As Byte, ByVal LowerByte As Byte) As Integer
    '上位・下位バイトを与えて整数値(Integer)を取得する
    Dim IntValue As Integer

    '上位バイトが&H7Fより大きいとき、得られる整数が符号あり整数の範囲を超えるので
    '&H10000を引くことで符号あり整数の範囲に戻す
    If UppperByte > &H7F Then
        IntValue = (LowerByte + (UpperByte * &H100)) - &H10000
    Else
        IntValue = LowerByte + (UpperByte * &H100)
    End If
    MakeInteger = IntValue
End Function

上位バイト

下位バイト

作成された整数値

Visual C++のMakeWord()関数と同じ