Help with Mod and / Functions in VBA

[pokeManiac]

Hi,

I need help with writing the Mod and / functions in VBA in a different way. I read in another thread that these two intrinsically produce results of the Long data type. But I need more than that. This is my convertToHex function which takes in as argument a decimal number:

result = ""
while decNum > 16
result = choose(decNum Mod 16 + 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F") & result
decNum = Int(decNum / 16)
wend
convertToHex = choose(decNum + 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F") & result

It works fine for a hexadecimal value with seven digits. But when the computation produces an eighth, I get an overflow error.

Help!

 

[Darren Bartrup]

Hi and welcome to the board,

Couldn't you just use HEX(123456) or EVALUATE("DEC2HEX(123456)") rather than write a function?

 

[pokeManiac]

Hahahahaha! I didn't know there was a HEX function in vba. That would certainly simplify everything. I would just like to know though how EVALUATE works. I tried looking it up on Excel's help tool but nothing came up.

 

[Darren Bartrup]

Evaluate can be a very useful command:

http://www.mrexcel.com/forum/genera...isual-basic-applications-evaluate-method.html

Evaluate - Most Powerful Command in VBA?

excel - Breaking down evaluate in vba - Stack Overflow

Evaluate Method [Excel 2003 VBA Language Reference]

Glad to help.

 

[pokeManiac]

I tried using the HEX function but I'm still getting an overflow error. This is how my statement now looks like:

doXorCalc = Hex(convertToDec(hexValue1) Xor convertToDec(hexValue2))

where hexValue1 and hexValue2 are string representations of the hexadecimal values I want to do the XOR operation on and doXorCalc is the function returning the result. I even tried converting the data type to DECIMAL with the CDEC function after getting the decimal values but it still would not work.

What am I doing wrong here?