【VBA】二进制转16进制
来源:互联网 发布:焊接机械手编程 编辑:程序博客网 时间:2024/06/05 15:00
Function BinToHex(ByVal sBin As String) As String
Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"
Dim i As Integer, j As Integer, s As String
BinToHex = ""
sBin = "000" & sBin
sBin = Right(sBin, (Len(sBin) \ 4) * 4)
For i = Len(sBin) \ 4 - 1 To 0 Step -1
s = Mid(sBin, i * 4 + 1, 4)
For j = 0 To 14
If s = Mid(BinChar, j * 4 + 1, 4) Then Exit For
Next j
If j < 10 Then
BinToHex = Chr(j + Asc("0")) + BinToHex
Else
BinToHex = Chr(j - 10 + Asc("A")) + BinToHex
End If
Next i
End Function
Private Sub Form_Load()
Debug.Print BinToHex("0111111101011010")
End
End Sub
Const BinChar = "0000000100100011010001010110011110001001101010111100110111101111"
Dim i As Integer, j As Integer, s As String
BinToHex = ""
sBin = "000" & sBin
sBin = Right(sBin, (Len(sBin) \ 4) * 4)
For i = Len(sBin) \ 4 - 1 To 0 Step -1
s = Mid(sBin, i * 4 + 1, 4)
For j = 0 To 14
If s = Mid(BinChar, j * 4 + 1, 4) Then Exit For
Next j
If j < 10 Then
BinToHex = Chr(j + Asc("0")) + BinToHex
Else
BinToHex = Chr(j - 10 + Asc("A")) + BinToHex
End If
Next i
End Function
Private Sub Form_Load()
Debug.Print BinToHex("0111111101011010")
End
End Sub
- 【VBA】二进制转16进制
- VBA 16进制转2进制
- 用VB代码将十进制小数转二进制,也说下vba自动打印
- [VBA] 以二进制方式打开文件
- 二进制转16进制JAVA代码
- 二进制转16进制JAVA代码
- 十进制转二进制八进制16进制
- 【VBA】单字节16进制转2进制
- 二进制转10进制
- 二进制 8进制 16进制
- VBA 全角转半角
- VBA农历转公历
- Building VBA Code(转)
- vba
- vba
- vba
- vba
- VBA
- Visual Studio 2008 中的可执行文件中嵌入清单文件(manifest) Vista/win7 UAC中把应用程序标注为“需要管理员权限”
- 注解代码
- 工作一年之后还存在这么大的问题,得改得改哦
- URAL 1684 Jack's Last Word
- How to configure vnc servers on CentOS 6.3
- 【VBA】二进制转16进制
- 2013年一季度国内获投资企业名单
- PHP命令执行PHP脚本,结束之前,内存会回收吗?
- Sql Server 分页查询
- 黑马程序员----JAVA基础反射与注解
- Create custom Task List and Forms in SharePoint 2010 with Visual Studio 2012
- android proguard 原理
- struts2中如何自动加载xml文件(不用修改配置文件)(转)
- RDMA技术