Dezimalzahl eines Binärwerts berechnen

1
2
3
4
5
6
7
8
9

Public Function BinToDec(ByVal BinVal As String) As Long
    Dim SqrNum As Long = 1
    Dim Result As Long = 0
    For i As Integer = BinVal.Length - 1 To 0 Step -1
        Result += (CLng(BinVal.Substring(i, 1)) * SqrNum)
        SqrNum *= 2
    Next
    Return Result
End Function