/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

4 votes334 views2 answers
Vba create folder if not exist
VBA
8 votes456 views1 answer
Vba make a short integer from two bytes
VBA
2 votes340 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote344 views1 answer
Enable macros on opening workbook vba
VBA
0 vote339 views1 answer
Excel vba move down to next visible cell
VBA
0 vote377 views1 answer
Regex numeric digits
VBA
0 vote353 views1 answer
Date as number vb
VBA
0 vote357 views1 answer
Vba min
VBA
0 vote331 views1 answer
Vba remove numbers from string
VBA
0 vote362 views1 answer
Excel named range sum
VBA