7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
vbspread 2005-11-01
- 打赏
- 举报
十进制转为二进制函数
Public Function DecToBin(ByVal DecNumber As Currency) As String
On Error Goto DecToBin_Finally
Dim BinNumber As String
Dim i%
For i = 64 To 0 Step -1
If Int(DecNumber / (2 ^ i)) = 1 Then
BinNumber = BinNumber & "1"
DecNumber = DecNumber - (2 ^ i)
Else
If BinNumber <> "" Then
BinNumber = BinNumber & "0"
End If
End If
Next
DecToBin = BinNumber
DecToBin_Finally:
If Err <> 0 Or BinNumber = "" Then DecToBin = "-E-"
Exit Function
End Function
Public Function DecToBin(ByVal DecNumber As Currency) As String
On Error Goto DecToBin_Finally
Dim BinNumber As String
Dim i%
For i = 64 To 0 Step -1
If Int(DecNumber / (2 ^ i)) = 1 Then
BinNumber = BinNumber & "1"
DecNumber = DecNumber - (2 ^ i)
Else
If BinNumber <> "" Then
BinNumber = BinNumber & "0"
End If
End If
Next
DecToBin = BinNumber
DecToBin_Finally:
If Err <> 0 Or BinNumber = "" Then DecToBin = "-E-"
Exit Function
End Function
