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

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

ник: ShadowOfSun
Спасибо, osmor
что-то я слона то и не приметил
функция упрощается до

Public Function DecAnd(ByVal FirstNum As Long, SecondNum As Long, Optional LenX As Long = 24) As String DecAnd = ToBinary(FirstNum And SecondNum, LenX) End Function

Для входных данных двоичной строкой

Public Function DecAndStr(ByVal FirstX As String, SecondX As String, Optional LenX As Long = 24) As String Dim i As Long DecAndStr = String(LenX, "0") FirstX = Mid$(DecAndStr & FirstX, Len(FirstX) + 1) SecondX = Mid$(DecAndStr & SecondX, Len(SecondX) + 1) For i = 1 To LenX If Mid$(FirstX, i, 1) = Mid$(SecondX, i, 1) Then Mid$(DecAndStr, i, 1) = Mid$(FirstX, i, 1) Next i End Function

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

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

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

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

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