Integer in 2 Bytes umwandeln

[F_P_aus_K]

weis jemand wie ich ein ineger in 2 bytes zerlegen kann? und dann noch mit beachtung des vorzeichens.

vielen dank

frank

 

[F_P_aus_K]

falls es jemand mal dennoch brauch:
public sub int2byte (byval aValue as integer)
Dim aValueLow As Integer
Dim aValueHigh As Integer
Dim Vorzeichen

If aValue And &H8000 Then
aValue = 32768 + aValue
Vorzeichen = &H80
Else : Vorzeichen = 0
End If

aValueLow = aValue Mod 256
aValueHigh = aValue \ 256
end sub