/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 vote174 views4 answers
Jwt token vb.net validation
VBA
31 votes309 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote163 views2 answers
How to concatenate more than 40 lines in vba
VBA
5 votes190 views1 answer
Excel vba how to unit test vba code
VBA
0 vote169 views1 answer
Move bindingnavigator vb
VBA
0 vote166 views1 answer
Vba static variable
VBA
0 vote161 views1 answer
Vlookup columns not next to each other
VBA
0 vote160 views1 answer
Vbnet check if string is only symbols
VBA
0 vote190 views1 answer
Excel vba move down to next visible cell
VBA
0 vote158 views1 answer
How to use VBA to add new record in MS Access?
VBA