Binary 2 decimal??

En funktion i hvad, Jeg kan gøre det i hovedet for dig ikke andet

MC

LAvede det en gang i  C++ men kan ikke lige huske hvad jeg gjorde af det
MC

Forresten så ligger det i windows´s lommeregner

http://www.codeuniverse.net/scode/binaryVB.zip

mc.lucifer (se kategorien og gæt....:)

jelzin101! Det var vidst dig der lavede den dec2bin funktion til mig for nylig og endnu engang kommer du mig til hjælp! Jeg checker det lige og giver dig dine pointz når jeg har fået det til at virke!

Joha0147!! :D

arrrr smart Kloge Åge *GGG*

MC

Det virker fint takker endnu engang! :D

en bedre en :
Public Function BinaryToDecimal(ByVal pValue As String) As Long
  Dim C        As Integer
  Dim PosValue  As Long
  Dim Value    As Long
 
  On Error GoTo ErrorHandler
 
  PosValue = 1
  For C = Len(pValue) To 1 Step -1
    If Mid(pValue, C, 1) = "1" Then Value = Value + PosValue
    PosValue = PosValue * 2
  Next
 
  BinaryToDecimal = Value
  Exit Function
 
ErrorHandler:
  BinaryToDecimal = 0

End Function

oki :)

takker for pts :)

//*jelzin101
www.dinos.dk