Как разделить две переменных, запакованные в одну?

[SBJocker]

Как разделить две переменных типа Integer, запакованные в одну типа Long?

Как вытащить первое число (младшие 16 бит) я разобрался:
integerVar = (Clng(LongResult%) and &hØffff&)
А вот как с остальными 16 старшими?

[GSerg]

function hiword(byval v as long) as integer
if v and &h80000000 then hiword=(v and &h7fffffff)\&h10000 or &h8000 else hiword=v\&h10000
end function

function loword(byval v as long) as integer
loword=v and &hffff
end function

[SBJocker]

Спасибо, а я нашел другое решение, в объявлении функции возвращающей подобное запакованное число нужно поставить тип возвращаемых данных POINTS , всё будет распаковываться автоматически!

[Vi]

На будущее - LSet может быть использован при преобразовании

Код: Выделить всё

Private Type x1
  x As Integer
  y As Integer
End Type

Private Type x2
  x As Long
End Type

Private Sub Form_Load()
  Dim x As x1, y As x2
  y.x = &H11112222
  LSet x = y
  Debug.Print hex(x.x), hex(x.y)
End Sub

[skiperski]

"Беня говорит мало, но он говорит смачно. Он говорит мало, но хочется,
чтобы он сказал еще что-нибудь."
© Исаак Бабель. Одесские рассказы