/VBA/Excel vba convert 2 Short integers to a Long integer

Excel vba convert 2 Short integers to a Long integer

Excel vba low 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

Excel vba convert 2 Short integers to a Long integer

Public Function MakeLong&(ByVal LoWord%, ByVal HiWord%)
  MakeLong = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function

Similar codes

0 vote222 views1 answer
Excel vba join variant array
VBA
0 vote238 views1 answer
Vba collection contains
VBA
1 vote228 views1 answer
Vba date to unix timestamp
VBA
20 votes542 views1 answer
Excel vba factorial
VBA
0 vote253 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote243 views2 answers
S yyyy-MM-dd em vb net
VBA
1 vote235 views1 answer
Excel vba to lower case
VBA
0 vote242 views1 answer
Vba keep command window open
VBA
5 votes245 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote235 views1 answer
Pivot data source not accepting table named range vba
VBA