Brain Teaser that I am having issues with

[jc.021286]

Hopefully someone can help,

I am looking to help with creating a VBA function to essentially "rebase a number"

The function would have 2 inputs, the hex number to rebase and the new base.

Public Function HEX2ANY(input1 As Integer, input2 As Integer)

End Function

If I were to do =HEX2ANY(221,2)
this would give the binary value of 221 (11011101)
however if I want to take that same number and =HEX2ANY(221,3) I'm stuck,

I found some code for doing the binary equiv provided at the bottom. Though I have no clue what this line is doing:

If input1 And (2 ^ n) Then
...

I tried to swap out the 2^n to input2^n but that gives an error so I'd need to know more of what is going on.

Essentially I'm looking to take some positive whole numbers and show their value in bases, 2,3,5,7,11,13... 29...

full code so far that needs tweak for other bases

Public Function HEX2ANY(input1 As Integer, input2 As Integer)
Const MAXLEN = 30
Dim strBin As String
Dim n As Long
If input1 < 0 Then
strBin = "1"
Else
strBin = "0"
End If

For n = MAXLEN To 0 Step -1
If input1 And (input2 ^ n) Then
strBin = strBin & "1"
Else
strBin = strBin & "0"
End If
Next

HEX2ANY = strBin
End Function

 

[Rick Rothstein]

I think the code I provide in my mini-blog article here will be of help to you...<!-- title / author block -->

Convert a (Possibly) Very Large Positive Decimal Number to Any Base (Up To 36)

Also the code here as well...<!-- title / author block -->

Convert a Number in Any Base (Up To 36) to a (Very Large) Positive Decimal Number

 

[jc.021286]

Thank you!

That was what I was looking for.
Now under the old adage, give a man a fish, he eats for a day, teach a man to fish, he eats for a lifetime.

Could you explain a bit of what is going on?

Here is what I understand,

<code>Const PossibleDigits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"</code>

This is going to be used to pull the digits for the number to be displayed, so if it exceeds base 10, it'll start going into the ABC...XYZ before maxing out at the base value and cycling back through.

then could you explain the usage of

<code>Do Until DecimalValue = 0     Dec2Base = Mid(PossibleDigits, CDec(DecimalValue) - Base * _                Int(DecimalValue / Base) + 1, 1) & Dec2Base     DecimalValue = Int(CDec(DecimalValue) / Base)   Loop</code>

You are going into the constant with the mid function and pulling 1 letter. Based on the
value - Base * (value / Base) + 1
Then tack this onto the front of the number before.
So you are building it from Left to right
Then you adjust the value down by the base...

I'm getting confused by just trying to work it out. Could you describe the logic?
The Int(DecimalValue/Base) does this need to be a rounddown or up function? Or is that automatically handled by casting into the Int?
</pre>
</pre>