Ответить на сообщение

Вы отвечаете на сообщение:

ник: ShadowOfSun
Можно упростить
функция Oct$(число)-возвращает текстовую строку в восьмеричном виде
Каждый символ - цифра от 0 до 7 соответствует в двоичном виде трем цифрам

0 000 1 001 2 010 3 011 4 100 5 101 6 110 7 111

Пример

Public Function ToBinary(ByVal Number As Long) As String ToBinary = Oct$(Number) ToBinary = Replace(ToBinary, "0", "000") ToBinary = Replace(ToBinary, "1", "001") ToBinary = Replace(ToBinary, "2", "010") ToBinary = Replace(ToBinary, "3", "011") ToBinary = Replace(ToBinary, "4", "100") ToBinary = Replace(ToBinary, "5", "101") ToBinary = Replace(ToBinary, "6", "110") ToBinary = Replace(ToBinary, "7", "111") End Function

по моему наглядней и быстрее

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB