access中自定义函数十进制十六进制之间的转换
时 间:2018-05-08 10:18:11
作 者:鸵鸟 ID:39610 城市:中山
摘 要:进制间转换
正 文:
十进制转换为十六进制:
Public Function DecHex(lngDecimal As Long)
Dim lngQout As LongDim 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
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)