/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 vote108 views1 answer
Vbnet add new ecel sheet
VBA
2 votes120 views1 answer
Excel vba check if key is in collection
VBA
1 vote129 views1 answer
Vba date to unix timestamp
VBA
0 vote123 views1 answer
Nested if else in vb.net
VBA
0 vote124 views1 answer
Freeze panes vba
VBA
0 vote117 views1 answer
Vbnet add axis labels to chart
VBA
1 vote126 views1 answer
How to put a gridpain in a vbox
VBA
0 vote120 views1 answer
Vbscript check if string contains
VBA
0 vote130 views1 answer
Vba excel parser xml
VBA
0 vote114 views1 answer
Vba get application version
VBA