ConvertDataTypes.comConvert data types programming in one click !

Convert Byte() to Integer in VB

    26243 hits
  • Dim vIn(1) As Byte
  • vIn(0) = &H80
  • vIn(1) = &H0
  • Dim vOut As Integer
  • For i = 0 To (UBound(vIn) - LBound(vIn))
  • If (i = 0 And ((vIn(0) And &H80) > 0)) Then 'negative value on first byte ?
  • vOut = vOut Or -(CLng(vIn(i)) * (2 ^ (8 * (LenB(vOut) - 1 - i))))
  • Else
  • vOut = vOut Or (CLng(vIn(i)) * (2 ^ (8 * (LenB(vOut) - 1 - i))))
  • End If
  • Next i