如何把二进制文件中的四字节转换成一个整数

能用ASC吗，不知道

将二进制转化为十进制
' 输入：Bin(二进制数)
' 输入数据类型：String
' 输出：BIN_to_DEC(十进制数)
' 输出数据类型：Long
' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
debug.print BIN_to_DEC
End Function

你说这个如果是BCD8421码，就是每4位二进制书转换为一个十进制数
比如1001 0011 0010 0110
可以转换为9326。
如果不是BCD8421不是码，你就每4位二进制数转换一次，转换出来的十进制数应该是在0-15