/VBA/Excel vba left word from Long Integer

Excel vba left word from Long Integer

'If n is a 4-byte Long Integer, the Low (Left) Word is:
If n And &H8000& Then
  	LoWord = n Or &HFFFF0000
Else
    LoWord = n And &HFFFF&
End If

'If n is a 4-byte Long Integer, the High (Right) Word is:
HiWord = (n And &HFFFF0000) \ &H10000

Source: academy.excelhero.com

Similar codes

1 vote252 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
3 votes205 views1 answer
Excel vba last row in range
VBA
0 vote279 views1 answer
Vba vbcrlf chr
VBA
0 vote228 views1 answer
Do while not vb.net
VBA
0 vote202 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote219 views1 answer
Excel vba chrw max value
VBA
0 vote209 views1 answer
Vba createparameter null
VBA
0 vote229 views1 answer
Delete rows in excel vba code
VBA
0 vote212 views1 answer
Vba pass named range to function
VBA
0 vote202 views1 answer
Excel vba populate array with cell values
VBA