超大数的十六进制转换

1. '超大数的十六进制转换
2. Option Explicit
4. Function HEXTODEC(ByVal x As String) As String '16进制到10进制
5.     Dim A() As String, i As Long, UNIT As Integer
6.     For i = 1 To Len(x)
7.         If Not IsNumeric("&h" & Mid(x, i, 1)) Then MsgBox "NOT A HEX FORMAT!", 64, "INFO": Exit Function
8.     Next
9.     x = String((6 - Len(x) Mod 6) Mod 6, "0") & x
11.     UNIT = Len(x) / 6 - 1
12.     ReDim A(UNIT)
13.     For i = 0 To UNIT
14.         A(i) = CLng("&h" & Mid(x, i * 6 + 1, 6))
15.     Next
16.     For i = 0 To UNIT
17.         A(i) = multi(A(i), POWERS(UNIT - i))
18.         HEXTODEC = sums(HEXTODEC, A(i))
19.     Next
20. End Function
22. Function POWERS(ByVal x As Integer) As String ' GET 16777216^X,ie 16^(6*x)（16777216的X 次方）
23.     POWERS = 1
24.     Dim i As Integer
25.     For i = 1 To x
26.         POWERS = multi(POWERS, CLng(&H1000000))
27.     Next
28. End Function
30. Function multi(ByVal x As String, ByVal y As String) As String 'multi of two huge hexnum（两个大数之积）
31.     Dim Result As Variant
32.     Dim xl As Long, yl As Long, temp As Long, i As Long
33.     xl = Len(Trim(x))
34.     yl = Len(Trim(y))
36.     ReDim Result(1 To xl + yl)
37.     For i = 1 To xl
38.         For temp = 1 To yl
39.             Result(i + temp) = Result(i + temp) + Val(Mid(x, i, 1)) * Val(Mid(y, temp, 1))
40.         Next
41.     Next
43.     For i = xl + yl To 2 Step -1
44.         temp = Result(i) / 10
45.         Result(i) = Result(i) Mod 10
46.         Result(i - 1) = Result(i - 1) + temp
47.     Next
49.     If Result(1) = "0" Then Result(1) = ""
50.     multi = Join(Result, "")
51.     Erase Result
53. End Function
55. Function sums(ByVal x As String, ByVal y As String) As String ' sum of two hugehexnum（两个大数之和）
56.     Dim max As Long, temp As Long, i As Long, Result As Variant
57.     max = IIf(Len(x) >= Len(y), Len(x), Len(y))
58.     x = Right(String(max, "0") & x, max)
59.     y = Right(String(max, "0") & y, max)
60.     ReDim Result(0 To max)
61.     For i = max To 1 Step -1
62.         Result(i) = Val(Mid(x, i, 1)) + Val(Mid(y, i, 1))
63.     Next
64.     For i = max To 1 Step -1
65.         temp = Result(i) / 10
66.         Result(i) = Result(i) Mod 10
67.         Result(i - 1) = Result(i - 1) + temp
68.     Next
69.     If Result(0) = 0 Then Result(0) = ""
70.     sums = Join(Result, "")
71.     Erase Result
73. End Function
75. Private Sub Form_Load()
76.     MsgBox HEXTODEC("178BFBFF00040F32")
77. End Sub