十进制转换为十六进制:
Public Function DecHex(lngDecimal As Long)
Dim lngQout As Long
Dim strTmp As String
Dim intTmp As Integer
lngQout = lngDecimal
Do Until lngQout = 0
intTmp = lngQout Mod 16
Select Case intTmp
Case Is <= 9
strTmp = intTmp & strTmp
Case 10
strTmp = "A" & strTmp
Case 11
strTmp = "B" & strTmp
Case 12
strTmp = "C" & strTmp
Case 13
strTmp = "D" & strTmp
Case 14
strTmp = "E" & strTmp
Case 15
strTmp = "F" & strTmp
End Select
lngQout = Int(lngQout / 16)
Loop
DecHex = strTmp
End Function
十六进制转换为十进制
Public Function HexDec(strHexadecimal As String)
Dim intl As Integer
Dim lngDecimal As Long
Dim i As Integer
Dim s As Integer
intl = Len(strHexadecimal)
s = 0
For i = intl To 1 Step -1
SS = Mid(strHexadecimal, i, 1)
Select Case SS
Case 0
SS = SS
Case 1
SS = SS
Case 2
SS = SS
Case 3
SS = SS
Case 4
SS = SS
Case 5
SS = SS
Case 6
SS = SS
Case 7
SS = SS
Case 8
SS = SS
Case 9
SS = SS
Case "A"
SS = 10
Case "B"
SS = 11
Case "C"
SS = 12
Case "D"
SS = 13
Case "E"
SS = 14
Case "F"
SS = 15
End Select
lngDecimal = lngDecimal + SS * 16 ^ s
s = s + 1
Next
HexDec = lngDecimal
End Function