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

ник: 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