excelvba large hexadecimal string to decimal
'VBA function to convert a hexadecimal string into a decimal. Uses
'the Decimal Variant subtype to allow for much larger values than the
'worksheet function HEX2DEC() or CLng("&h" & HexVal) can achieve. It
'returns an UNSIGNED Decimal integer...
Function HexToDec(hexStr$)
Dim c&, i&, bitVal
Static hexVals&(), b() As Byte
If (Not Not hexVals) = 0 Then
ReDim hexVals(48 To 102)
For i = 48 To 57
hexVals(i) = c
c = c + 1
Next
For i = 65 To 70
hexVals(i) = c
c = c + 1
Next
c = 10
For i = 97 To 102
hexVals(i) = c
c = c + 1
Next
End If
bitVal = CDec(1)
HexToDec = CDec(0)
b = StrConv(hexStr, vbFromUnicode)
For i = UBound(b) To 0 Step -1
HexToDec = HexToDec + hexVals(b(i)) * bitVal
bitVal = bitVal * 16&
Next
End Function
'-------------------------------------------------------------------------------------
MsgBox HexToDec("fffffffffffffffffffffff") '<--displays: 4951760157141521099596496895
MsgBox TypeName(HexToDec("ABCDEF0123456")) '<--displays: Decimal
'
'
'
Are there any code examples left?
New code examples in category VBA
Relative searches
excel vba convert string to hex
excel hex to decimal convert macro
excel vba big decimal to hex
excel vba big hex to dec unsigned
excel vba big hex to dec
xl vba Convert HEX string to Unsigned INT
vba Convert HEX string to Unsigned INT
excelvba Convert HEX string to Unsigned INT
excel vba Convert HEX string to Unsigned INT
excel vba hex to dec
vba hex to decimal
excel vba hex to decimal
excel vba hex string to decimal
excel vba hexidecimal string to decimal integer
excel vba hexidecimal string to decimal
vba hexidecimal string to decimal
vba large hexidecimal string to decimal excel
xl vba large hexidecimal string to decimal
excel vba large hexidecimal string to decimal
vba large hexidecimal string to decimal
xl vba large hexadecimal string to decimal
excelvba large hexadecimal string to decimal
excel vba large hexadecimal string to decimal
vba large hexadecimal string to decimal
vba large hex string to decimal excel
xl vba large hex string to decimal
excel vba large hex string to decimal
vba large hex string to decimal
vba big hex string to decimal
excelvba big hex string to decimal
excel vba big hex string to decimal
excel vba big hex string to decimal string
