Well, he must do something ... After all he get paid for that ... :-) > What about negative numbers? :) > > Vlad > > >I just wrote this program. It will covert a number from one base to > another > >whatever the base is. Check it out. You might want to test it, I didn't > >had enough time but it seems to work so far. > > > >If you want to convert a binary number like 10101101 to hex, call > >the function like this : > > > >?Base2Base('10101101',2,16) > > > >For a hex2bin conversion : > > > >?Base2Base('FF',16,2) > > > >For all : If you think this might be usefull for somebody else > >I will upload it on UT. > > > >FUNCTION BASE2BASE > >* Convert integers from one base to another > >* > >* lcNumber - the number to be converted as string > >* lnBaseIn - the base of the number to be converted > >* lnBaseOut - the base of the result > >* > >* return value is string > >* > >* The Letter2Number and Number2Letter functions > >* have to be inserted in the procedure file or ... wherever > >* can be found by the Base2Base > > > >lParameters lcNumber,lnBaseIn,lnBaseOut > > > >LOCAL lnCount, lnDecimal, lnNumberLen, lnRest, lcResult, lnDRes > > > >If Type('lnBaseIn')='L' > > lnBaseIn = 10 > >EndIf > > > >If Type('lnBaseOut')='L' > > lnBaseOut = 10 > >EndIf > > > >if lnBaseIn <> 10 > > lcNumber = Allt(Upper(lcNumber)) > > lnNumberLen = Len(lcNumber) > > > > * conversion 2 decimal > > lnDecimal = 0 > > FOR lnCount = 1 TO lnNumberLen > > lnDecimal = lnDecimal + > >Letter2Number(substr(lcNumber,lnCount,1))*lnBaseIn^(lnNumberLen-lnCount) > > ENDFOR &&* lnCount = 1 TO lnBaseIn > >else > > lnDecimal = val(lcNumber) > >endif > > > >if lnBaseOut <> 10 > > lcResult = '' > > do while .t. > > lnRest = MOD(lnDecimal,lnBaseOut) > > lnDRes = int(lnDecimal/lnBaseOut) > > lcResult = Number2Letter(lnRest) + lcResult > > if lnDRes<>0 > > lnDecimal = lnDRes > > else > > exit > > endif > > enddo > >else > > lcResult = str(lnDecimal) > >endif > > > >Return lcResult > > > >Function Letter2Number > > lParameters lcNumber > > > > do case > > case Between(ASC(lcNumber),48,57) > > lnResult = ASC(lcNumber)-48 > > case Between(ASC(lcNumber),65,90) > > lnResult = ASC(lcNumber)-55 > > otherwise > > lnResult = 0 > > EndCase > > > > Return lnResult > > > >Function Number2Letter > > lParameters lnNumber > > > > do case > > case Between(lnNumber,0,9) > > lcResult = CHR(lnNumber+48) > > case Between(lnNumber,10,45) > > lcResult = CHR(lnNumber+55) > > otherwise > > lcResult = '?' > > EndCase > > > > Return lcResult