Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Преобразование из двоичного числа в десятичное

1.9K
27 апреля 2007 года
AxXxB
229 / / 21.11.2006
Есть ли функция, осуществляющая сабж? Если нету, то как это можно реализовать самому?
1.9K
27 апреля 2007 года
AxXxB
229 / / 21.11.2006
Все, решил :)
 
Код:
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
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог