/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

0 vote215 views1 answer
Excel R1C1 mode
VBA
0 vote219 views1 answer
Find database connection string vb
VBA
0 vote201 views1 answer
Get current url vb.net
VBA
0 vote192 views1 answer
Vba word pdf table to excel
VBA
6 votes213 views1 answer
Excel vba get the path of current workbook
VBA
0 vote210 views1 answer
Vbnet check if sting contians symbols
VBA
5 votes232 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote203 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote207 views1 answer
Windows Presentation Foundation dark title bar
VBA
1 vote201 views2 answers
Vba find last row in range for certain criteria
VBA