Function Bin(InValue As Long) As Long
Dim InString As String, i As Integer
InString = StrReverse(Str(InValue))
For i = 0 To Len(InString) - 1
Bin = Bin + Val(Mid(InString, i + 1, 1)) * 2 ^ i
Next
End Function
Преобразование из двоичного числа в десятичное
Есть ли функция, осуществляющая сабж? Если нету, то как это можно реализовать самому?
Код: