• Home
 · 
• Math/Dates
 · 
• BigDecToHex

BigDecToHex

Converting decimal value to hexadecimal WITHOUT! using the VB functions or mod (which are limited to long data type value), therefore the function can handle BIG numbers, untill 15,000,000,000,000,000 (1.5E+16).

Inputs
decimal value

Returns
hexadecimal value

Side Effects
The functions might not be accurate beyond 15,000,000,000,000,000 (1.5E+16).

Rate BigDecToHex

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Public Function BigDecToHex(ByVal DecNum) As String
  ' This function is 100% accurate untill 15,000,000,000,000,000 (1.5E+16)
  
  Dim NextHexDigit As Double
  Dim HexNum As String
  
  HexNum = ""
  While DecNum <> 0
    NextHexDigit = DecNum - (Int(DecNum / 16) * 16)
    
    If NextHexDigit < 10 Then
      HexNum = Chr(Asc(NextHexDigit)) & HexNum
    Else
      HexNum = Chr(Asc("A") + NextHexDigit - 10) & HexNum
    End If
    
    DecNum = Int(DecNum / 16)
  Wend
  If HexNum = "" Then HexNum = "0"
  BigDecToHex = HexNum
End Function