ник: Lukas
Можно так, например:
Public Function Двоичное(Число As Long, Знаков As Long) As Variant
Dim i As Long
Dim Остаток As Long
Dim dv() As Long
ReDim dv(Знаков)
dv(Знаков) = Число Mod 2
Остаток = Число
For i = Знаков - 1 To 1 Step -1
Остаток = Остаток \ 2
dv(i) = Abs(Остаток Mod 2 > 0)
Next i
Двоичное = dv
End Function
|
или так:
Public Function Двоичное(Число As Long, Знаков As Integer) As String
Dim i As Integer
Dim Остаток As Long
Dim dv() As Integer
ReDim dv(Знаков)
dv(Знаков) = Число Mod 2
Остаток = Число
For i = Знаков - 1 To 1 Step -1
Остаток = Остаток \ 2
dv(i) = Abs(Остаток Mod 2 > 0)
Next i
For i = 1 To Знаков
Двоичное = Двоичное & dv(i)
Next i
End Function
|
А уж по полям сами раскидайте.