[exel] i zamiana liczb na dziesietne <=> binarne

Witam
Chciałem się was zapytać co w tej funcji jest złe że ona nie działa
Option Explicit Public Function dwojka(liczba) Dim wynik As String Dim r, i As Byte Dim dz As Integer Dim u, czynnik As Single wynik = "" dz = Int(liczba) u = liczba - dz For i = 1 To 14 r = dz Mod 2 dz = Int(dz / 2) wynik = Trim(Str(r)) + wynik Next i wynik = wynik + "" czynnik = 0.5 For i = 1 To 4 If u >= czynnik Then wynik = wynik + "1" u = u - czynnik Else: wynik = wynik + "0" End If wynik = czynnik / 2 Next i dwojka = wynik End Function Public Function uzup2(liczba) Dim wynik As String Dim r, i, liczba2 As Byte If liczba >= 0 Then liczba2 = liczba Else liczba2 = 256 + liczba End If wynik = "" For i = 1 To 8 r = liczba2 Mod 2 liczba2 = Int(liczba2 / 2) wynik = Trim(Str(r)) + wynik Next i uzup2 = wynik End Function

Pozdrawiam

ps funkcja jak dobrze pamiętam miała zamieniać liczby w systemie dziesiętnym na binarne , ale mogę sie mylić

---

Public Function Bin(ByVal lngNumber As Long) As String Dim strHex As String Dim i As Long Static astrBin() As String Static boolArray As Boolean If Not boolArray Then astrBin = Split("0,1,10,11,100,101,110,111,1000,1001,1010,1011,1100,1101,1110,1111", ","): boolArray = True strHex = Hex(lngNumber) For i = 1 To Len(strHex)    Bin = Bin & Format(astrBin("&H" & Mid$(strHex, i, 1)), "0000") Next End Function
pozdrawiaMM

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl