/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 vote140 views1 answer
Putting marquee in vb.net
VBA
-1 vote134 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote143 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote136 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote144 views1 answer
Excel delete ever other vba
VBA
0 vote133 views1 answer
Vlookup columns not next to each other
VBA
0 vote133 views1 answer
Vba pass named range to function
VBA
0 vote149 views1 answer
Vba simple quote
VBA
2 votes141 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
0 vote125 views1 answer
Excel vba populate array with cell values
VBA