ник: Lukas
А здесь и без реверса можно обойтись
Public Function ToBinary(ByVal Number As Long) As String
ToBinary = Number Mod 2
Do While Number > 0
Number = Number \ 2
ToBinary = Abs(Number Mod 2 > 0) & ToBinary
Loop
If Len(ToBinary) > 1 Then ToBinary = Mid(ToBinary, 2)
End Function
|
Но все равно медленней.