BinDec 関数
ASP with VBScript で PHP の便利な関数を定義してみる (5)
BinDec()
2進数を10進数へ変換する関数。
関数の説明
BinDec (strBin as String) as integer
BinDec のソース
<%
Public Function BinDec(strBin)
Dim intBinLen
Dim intDec
intDec = 0
intBinLen = Len(trim(strBin))
For i = 0 to intBinLen-1
intDec = intDec + Mid(strBin,intBinLen-i,1) * 2^i
Next
BinDec = intDec
End Function
%>
Public Function BinDec(strBin)
Dim intBinLen
Dim intDec
intDec = 0
intBinLen = Len(trim(strBin))
For i = 0 to intBinLen-1
intDec = intDec + Mid(strBin,intBinLen-i,1) * 2^i
Next
BinDec = intDec
End Function
%>