Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: ShadowOfSun А можно и быстрее
Public Function LongToBin(ByVal Number As Long) As String Const ZERO As String * 4 = "0000" Const ONE As String * 4 = "0001" Const TWO As String * 4 = "0010" Const THREE As String * 4 = "0011" Const FOUR As String * 4 = "0100" Const FIVE As String * 4 = "0101" Const SIX As String * 4 = "0110" Const SEVEN As String * 4 = "0111" Const EIGHT As String * 4 = "1000" Const NINE As String * 4 = "1001" Const TEN As String * 4 = "1010" Const ELEVEN As String * 4 = "1011" Const TWELVE As String * 4 = "1100" Const THIRTEEN As String * 4 = "1101" Const FOURTEEN As String * 4 = "1110" Const FIFTEEN As String * 4 = "1111" LongToBin = "" Do Select Case Number Mod 16 Case Is = 0: LongToBin = ZERO & LongToBin Case Is = 1: LongToBin = ONE & LongToBin Case Is = 2: LongToBin = TWO & LongToBin Case Is = 3: LongToBin = THREE & LongToBin Case Is = 4: LongToBin = FOUR & LongToBin Case Is = 5: LongToBin = FIVE & LongToBin Case Is = 6: LongToBin = SIX & LongToBin Case Is = 7: LongToBin = SEVEN & LongToBin Case Is = 8: LongToBin = EIGHT & LongToBin Case Is = 9: LongToBin = NINE & LongToBin Case Is = 10: LongToBin = TEN & LongToBin Case Is = 11: LongToBin = ELEVEN & LongToBin Case Is = 12: LongToBin = TWELVE & LongToBin Case Is = 13: LongToBin = THIRTEEN & LongToBin Case Is = 14: LongToBin = FOURTEEN & LongToBin Case Is = 15: LongToBin = FIFTEEN & LongToBin End Select Number = Number \ 16 Loop Until Number = 0 End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.