Legio

Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Гугл ничего не подсказал, но на скорую руку слепилось что-то вроде такого: Код: MsgBox (255 And 192) & _ "." & (255 And 168) & _ "." & (255 And 0) & _ "." & (252 And 102) MsgBox ((252 And 102) Xor 102) 'или оно же, но через исходные данные Dim ip As String, mask As String ip = "192.168.0.102" mask = "255.255.255.252" MsgBox (CByte(Split(mask, ".")(0)) And CByte(Split(ip, ".")(0))) & _ "." & (CByte(Split(mask, ".")(1)) And CByte(Split(ip, ".")(1))) & _ "." & (CByte(Split(mask, ".")(2)) And CByte(Split(ip, ".")(2))) & _ "." & (CByte(Split(mask, ".")(3)) And CByte(Split(ip, ".")(3))) MsgBox ((CByte(Split(mask, ".")(3)) And CByte(Split(ip, ".")(3))) Xor CByte(Split(ip, ".")(3))) | Думаю, что не так сложно "облагородить" это в отдельную функцию/процедуру, которая бы принимала два текстовых параметра и возвращала чаемое каким-нибудь понятным способом. |