• Home
 · 
• Math/Dates
 · 
• Convert two dWords to a qWord

Convert two dWords to a qWord

How to convert two 32-bit dWords to a 64-bit qWord.

API Declarations
none, pure basic

Rate Convert two dWords to a qWord

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Option Explicit
Private Type tLoHi 'remember - we are little endian
  Lo As Long
  Hi As Long
End Type
Private Type tCurr
  LoHi As Currency
End Type
Private Function Convert(ByVal HiWord As Long, ByVal LoWord As Long) As Variant
 'convert two 32bit dWords to a 64bit qWord
 Dim LoHi As tLoHi
 Dim Curr As tCurr
  LoHi.Hi = HiWord
  LoHi.Lo = LoWord
  LSet Curr = LoHi
  Convert = CDec(Curr.LoHi) * 10000    'remove decimal point from currency
End Function
Private Sub Command1_Click()
  Cls
  Print "MaxPos ", Convert(&H7FFFFFFF, &HFFFFFFFF)
  Print "MaxNeg ", Convert(&H80000000, 0)
  Print "Plus 1 ", Convert(0, 1)
  Print "Minus 1", Convert(&HFFFFFFFF, &HFFFFFFFF)
End Sub