:))

>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