Binär -> Dezimalrechner

[Christian K.]

Hi,

ich suche eine Möglichkeit wie ich in meinen vorhandenen Code eine Umwandlung von einer Binärzahl zu einer Dezimalzahl machen kann.

Weiss jemand zufällig ob es dazu irgendwo schon einen fertigen Code gibt, den ich übernehmen könnte?

Vielen Dank

[Stephan]

Weiss jemand zufällig ob es dazu irgendwo schon einen fertigen Code gibt, den ich übernehmen könnte?

Keine Ahnung, ich habe Dir schnell einen Code geschrieben, der gehen sollte:

Code: Alles auswählen

Sub Main
a = "10011011"
i = 0
Do
  x = Left(a, LEN(a)-i)
  x1 = RIGHT(x, 1)
  If CInt(x1) = 1 Then gesamt = gesamt + 2 ^ i
  i = i + 1
Loop While i < LEN(a)
msgbox gesamt
End Sub

Gruß
Stephan

[Christian K.]

Ich hab diesen hier jetzt gefunden und verwendet, funktioniert auch problemlos!

Code: Alles auswählen

        For i = Len(binaer) To 1 Step -1
          If Mid(binaer, i, 1) = "1" Then
            Answer = Answer + 2 ^ Potenz
          End If
          Potenz = Potenz + 1
        Next