>>>Only problem here is that it's off by one.
>>
>>Sorry for not understanding, but what do you mean with this.
>
>It yields the wrong result. In the example (01010) equals 10. Your method returns 20. Why? Because integers are base zero in the way they are numbered. However, the following does work
lndec = 0
>lnLenght = Len(lcBin)
>For lnTel = 1 to lnLenght
> lnDec = iif(SubStr(lcBin,lnLenght-lnTel+1,1)='1',BitSet(lnDec,lntel <b>- 1</b>),lnDec)
>EndFor
Hence, you're off by one.
Thank you,
I just typed this directly form scratch in the message.
So i did't test it.
Sorry and thanks again,