[求助]在VBA里有16进制转10进制的函数吗

lotustower

以下是引用[I]alton[/I]在2006-2-20 11:48:46的发言：[BR]不会[em04][em04][em04]

既然不會，以上連結的 Function eg MsgBox Base2Base(20, 16, 10)

彭希仁

Function 十六转十(a) Dim xi As Long Dim x As Long x = 0 For i = Len(a) To 1 Step -1 y = Mid(a, i, i) If y = "a" Then xi = 10 If y = "b" Then xi = 11 If y = "c" Then xi = 12 If y ="d" Then xi = 13 If y = "e" Then xi = 14 If y = "f" Then xi = 15 If y = 0 Then xi = 0 If y = 1 Then xi = 1 If y = 2 Then xi = 2 If y = 3 Then xi = 3 If y = 4 Then xi = 4 If y = 5 Then xi = 5 If y = 6 Then xi = 6 If y = 7 Then xi = 7 If y = 8 Then xi = 8 If y = 9 Then xi = 9 x = x + xi * (16 ^ (Len(a) - i)) Next i 十六转十 = x End Function

[此贴子已经被作者于2006-2-20 14:35:42编辑过]

alton

非常感谢彭希仁大侠，还是有点问题，我自己慢慢摸索吧。看来以后要经常来这里讨教才行，太菜了…………

彭希仁

Function 十六转十(a)
Dim xi As Long
Dim x As Long
x = 0
For i = Len(a) To 1 Step -1
y = Mid(a, i, 1)
If y = "a" Then xi = 10
If y = "b" Then xi = 11
If y = "c" Then xi = 12
If y ="d" Then xi = 13
If y = "e" Then xi = 14
If y = "f" Then xi = 15
If y = 0 Then xi = 0
If y = 1 Then xi = 1
If y = 2 Then xi = 2
If y = 3 Then xi = 3
If y = 4 Then xi = 4
If y = 5 Then xi = 5
If y = 6 Then xi = 6
If y = 7 Then xi = 7
If y = 8 Then xi = 8
If y = 9 Then xi = 9
x = x + xi * (16 ^ (Len(a) - i))
Next i
十六转十 = x
End Function

[此贴子已经被作者于2007-10-6 16:54:37编辑过]

alton

应该是y = Mid(a, i, 1)才对吧[em09]

彭希仁

是的，原理的确需要改过来。 但不知为什么运行结果却是正确的？

[此贴子已经被作者于2006-2-20 14:57:19编辑过]

alton

第6行的y = Mid(a, i, i)应该是y = Mid(a, i, 1)才对吧，我试过了，取1个字符，而不是i个字符。

彭希仁

If y = "e" Then xi = 14等
它只比较第1个字附，所以结果也不会错。

cooloaky

有更简单的方法。VB里对以&H开头的字符串会默认为是16进制的，只需要用一个CLNG就可以转换为10进制啦！

如HEX(480)=1EO

CLNG("&H1EO")=480

建筑联盟

CLNG("&H1EO")=480我在VBA怎么不能使用啊