ник: Lukas
Наверное подведем временно итог:
В виду некоторой экзотичности новой функции и небольшим приростом скорости (13-15%),
предлагаю вернуться к этому варианту:
Public Function LongToBinStr(ByVal Number As Long, Optional Digits As Long = 32) As String
Dim Ret As String
Dim i As Long
Const ZERO As String = "0"
Const ONE As String = "1"
Ret = String(Digits, ZERO)
If Number Then
For i = Digits To 0 Step -1
If Number Mod 2 Then
Mid$(Ret, i, 1) = ONE
End If
Number = Number \ 2
Next i
End If
LongToBinStr = Ret
End Function
|
Хочется отметить, что знак числа эта функция не учитывает.