16进制转二进制、八进制
2015-09-06 10:53
218 查看
' 用途:将二进制转化为八进制 ' 输入:Bin(二进制数) ' 输入数据类型:String ' 输出:BIN_to_OCT(八进制数) ' 输出数据类型:String ' 输入的最大数为2147483647个字符 Public Function BIN_to_OCT(ByVal Bin As String) As String Dim i As Long Dim H As String If Len(Bin) Mod 3 <> 0 Then Bin = String(3 - Len(Bin) Mod 3, "0") & Bin End If For i = 1 To Len(Bin) Step 3 Select Case Mid(Bin, i, 3) Case "000": H = H & "0" Case "001": H = H & "1" Case "010": H = H & "2" Case "011": H = H & "3" Case "100": H = H & "4" Case "101": H = H & "5" Case "110": H = H & "6" Case "111": H = H & "7" End Select Next i While Left(H, 1) = "0" H = Right(H, Len(H) - 1) Wend BIN_to_OCT = H End Function ' 用途:将十六进制转化为二进制 ' 输入:Hex(十六进制数) ' 输入数据类型:String ' 输出:HEX_to_BIN(二进制数) ' 输出数据类型:String ' 输入的最大数为2147483647个字符 Public Function HEX_to_BIN(ByVal Hex As String) As String Dim i As Long Dim B As String Hex = UCase(Hex) For i = 1 To Len(Hex) Select Case Mid(Hex, i, 1) Case "0": B = B & "0000" Case "1": B = B & "0001" Case "2": B = B & "0010" Case "3": B = B & "0011" Case "4": B = B & "0100" Case "5": B = B & "0101" Case "6": B = B & "0110" Case "7": B = B & "0111" Case "8": B = B & "1000" Case "9": B = B & "1001" Case "A": B = B & "1010" Case "B": B = B & "1011" Case "C": B = B & "1100" Case "D": B = B & "1101" Case "E": B = B & "1110" Case "F": B = B & "1111" End Select Next i While Left(B, 1) = "0" B = Right(B, Len(B) - 1) Wend HEX_to_BIN = B End Function ' 用途:将十六进制转化为八进制 ' 输入:Hex(十六进制数) ' 输入数据类型:String ' 输出:HEX_to_OCT(八进制数) ' 输出数据类型:String ' 输入的最大数为2147483647个字符 Public Function HEX_to_OCT(ByVal Hex As String) As String Dim Bin As String Hex = UCase(Hex) Bin = HEX_to_BIN(Hex) HEX_to_OCT = BIN_to_OCT(Bin) End Function
相关文章推荐
- Derby介绍
- POJ Apple Tree (树状数组 + dfs序)
- 微信支付phpv3给我们留下的坑
- Fragment销毁时replace和add两个方法的区别
- 非比较排序和大量数据找中位数面试题(2)
- SOAPUI系列04-SOAPUI 项目新建
- Linux2.6.32移植到MINI2440(2)添加Nand Flash驱动,修改分区
- response.setContentType()的作用及参数
- 用VB6.0实现串口通信
- CommonDialog控件
- 更换windows xp序列号
- BAE (使用1)
- 记一次FTP服务故障分析
- 某游戏公司“中国传统服装史”培训圆满结束!
- file_operation(文件操作) file(文件) inode(节点) http://blog.itpub.net/14805538/viewspace-445624/
- set
- 初学GtkBuilder界面开发
- window.onload() 和 $(function(){})
- 如何读写串口
- ubuntu安装vim