Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Правка ToBinary:
Public Function ToBinary(ByVal Number As Long) As String ToBinary = Number Mod 2 Do While Number > 1 Number = Number \ 2 ToBinary = Abs(Number Mod 2 > 0) & ToBinary Loop End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.