access中自定义函数十进制十六进制之间的转换

来源:www.accessoft.com 点击数:6840 　 | 收藏 | 复制

时　间:2018-05-08 10:18:11
作　者:鸵鸟 ID：39610 城市：中山
摘　要:进制间转换
正　文:

十进制转换为十六进制：

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