Option Explicit
Public Function Bin(ByVal lngNumber As Long) As String
Do While lngNumber > 0
Bin = (lngNumber Mod 2) & Bin
lngNumber = lngNumber \ 2
Loop
If (Len(Bin) Mod 8) <> 0 Then
Bin = String$(8 - (Len(Bin) Mod 8), "0") & Bin
End If
End Function
Public Function Oct(ByVal lngNumber As Long) As String
Do While lngNumber > 0
Oct = (lngNumber Mod 8) & Oct
lngNumber = lngNumber \ 8
Loop
If (Len(Oct) Mod 4) <> 0 Then
Oct = String$(4 - (Len(Oct) Mod 4), "0") & Oct
End If
End Function
распечатать в бинарном формате
Здраствуйте!
Как в VB6 вывести целое число в строковую переменную в бинарном виде?
Спасибо
Как в VB6 вывести целое число в строковую переменную в бинарном виде?
Спасибо
Все работает. А самое главное в точку не дать не взять. Там и VB6 и в бинарном виде.
Скажите спасибо [COLOR="blue"]arrjj[/COLOR]
Код:
Скажите спасибо [COLOR="blue"]arrjj[/COLOR]
Громадное спасибо arrjj и UserNet2008.
Ссылка все-таки сработала. Похоже это роутер дурил.
Ссылка все-таки сработала. Похоже это роутер дурил.