自定义函数，位数超长数字的加减乘除计算。

香川群子

加减法代码更新，可以处理科学指数形式的数值了。如 1.25E-17 = 0.0000000000000000125

1. Function PM(Na, Nb, Optional k = 0) '桁数多い文字表示数字の加減計算
   
2.     If Na = 0 Or Na = "" Then PM = Nb: Exit Function
   
3.     If Nb = 0 Or Nb = "" Then PM = Na: Exit Function
   
4.    
   
5.     ka = IIf(Left(Na, 1) = "-", "-", "+")
   
6.     If Left(Na, 1) = "+" Or Left(Na, 1) = "-" Then Na = Mid(Na, 2)
   
7.     If InStr(Na, "E") Then
   
8.         If Mid(Na, InStr(Na, "E") + 1, 1) = "-" Then
   
9.             If InStr(Na, ".") Then
   
10.                 Na = "0." & String(Mid(Na, InStr(Na, "E") + 2) - 1, "0") & Left(Na, 1) & Mid(Na, 3, InStr(Na, "E") - 3)
    
11.             Else
    
12.                 Na = "0." & String(Mid(Na, InStr(Na, "E") + 2) - 1, "0") & Left(Na, 1)
    
13.             End If
    
14.         Else
    
15.             If InStr(Na, ".") Then
    
16.                 Na = Left(Na, 1) & Mid(Na, 3, InStr(Na, "E") - 3) & String(Mid(Na, InStr(Na, "E") + 2) - InStr(Na, "E") + 3, "0")
    
17.             Else
    
18.                 Na = Left(Na, 1) & String(Mid(Na, InStr(Na, "E") + 2) - InStr(Na, "E") + 2, "0")
    
19.             End If
    
20.         End If
    
21.     End If
    
22.     Pa = IIf(InStr(Na, ".") = 0, 0, Len(Na) - InStr(Na, "."))
    
23.     If Left(Na, 2) = "0." Then Na = Replace(Na, "0.", "") Else Na = Replace(Na, ".", "")
    
24.    
    
25.    
    
26.     kb = IIf(Left(Nb, 1) = "-", "-", "+")
    
27.     If Left(Nb, 1) = "+" Or Left(Nb, 1) = "-" Then Nb = Mid(Nb, 2)
    
28.     If InStr(Nb, "E") Then
    
29.         If Mid(Nb, InStr(Nb, "E") + 1, 1) = "-" Then
    
30.             If InStr(Nb, ".") Then
    
31.                 Nb = "0." & String(Mid(Nb, InStr(Nb, "E") + 2) - 1, "0") & Left(Nb, 1) & Mid(Nb, 3, InStr(Nb, "E") - 3)
    
32.             Else
    
33.                 Nb = "0." & String(Mid(Nb, InStr(Nb, "E") + 2) - 1, "0") & Left(Nb, 1)
    
34.             End If
    
35.         Else
    
36.             If InStr(Nb, ".") Then
    
37.                 Nb = Left(Nb, 1) & Mid(Nb, 3, InStr(Nb, "E") - 3) & String(Mid(Nb, InStr(Nb, "E") + 2) - InStr(Nb, "E") + 3, "0")
    
38.             Else
    
39.                 Nb = Left(Nb, 1) & String(Mid(Nb, InStr(Nb, "E") + 2) - InStr(Nb, "E") + 2, "0")
    
40.             End If
    
41.         End If
    
42.     End If
    
43.     Pb = IIf(InStr(Nb, ".") = 0, 0, Len(Nb) - InStr(Nb, "."))
    
44.     If Left(Nb, 2) = "0." Then Nb = Replace(Nb, "0.", "") Else Nb = Replace(Nb, ".", "")
    
45.    
    
46.     If Pa > Pb Then p = Pa Else p = Pb
    
47.     Na = Na & String(p - Pa, "0")
    
48.     Nb = Nb & String(p - Pb, "0")
    
49.    
    
50.     l = IIf(Len(Na) > Len(Nb), Len(Na) + 1, Len(Nb) + 1) \ 12
    
51.     ReDim a(l + 2, 4)
    
52.     For i = 1 To l + 1
    
53.         If i * 12 <= Len(Na) Then a(i, 1) = Mid(Na, Len(Na) - i * 12 + 1, 12) Else If i = Len(Na) \ 12 + 1 Then a(i, 1) = Left(Na, Len(Na) - (i - 1) * 12)
    
54.         If i * 12 <= Len(Nb) Then a(i, 2) = Mid(Nb, Len(Nb) - i * 12 + 1, 12) Else If i = Len(Nb) \ 12 + 1 Then a(i, 2) = Left(Nb, Len(Nb) - (i - 1) * 12)
    
55.         
    
56.         If Val(a(i, 0)) + Val(a(i, 1)) + Val(a(i, 2)) < 10 ^ 12 Then a(i, 0) = Val(a(i, 0)) + Val(a(i, 1)) + Val(a(i, 2)) Else a(i + 1, 0) = 1: a(i, 0) = Val(a(i, 0)) + Val(a(i, 1)) + Val(a(i, 2)) - 10 ^ 12
    
57.         a(0, 0) = Right(String(12, "0") & a(i, 0), 12) & a(0, 0)
    
58.         
    
59.         If Val(a(i, 3)) + Val(a(i, 1)) < Val(a(i, 2)) Then a(i + 1, 3) = -1: a(i, 3) = 10 ^ 12 + Val(a(i, 3)) + Val(a(i, 1)) - Val(a(i, 2)) Else a(i, 3) = Val(a(i, 3)) + Val(a(i, 1)) - Val(a(i, 2))
    
60.         a(0, 3) = Right(String(12, "0") & a(i, 3), 12) & a(0, 3)
    
61.         
    
62.         If Val(a(i, 4)) + Val(a(i, 2)) < Val(a(i, 1)) Then a(i + 1, 4) = -1: a(i, 4) = 10 ^ 12 + Val(a(i, 4)) + Val(a(i, 2)) - Val(a(i, 1)) Else a(i, 4) = Val(a(i, 4)) + Val(a(i, 2)) - Val(a(i, 1))
    
63.         a(0, 4) = Right(String(12, "0") & a(i, 4), 12) & a(0, 4)
    
64.     Next i
    
65.    
    
66.     a(0, 0) = a(l + 2, 0) & a(0, 0)
    
67.     a(0, 3) = a(l + 2, 3) & a(0, 3)
    
68.     a(0, 4) = a(l + 2, 4) & a(0, 4)
    
69.    
    
70.     If p > 0 Then
    
71.         a(0, 0) = Left(a(0, 0), Len(a(0, 0)) - p) & "." & Right(a(0, 0), p)
    
72.         For i = 1 To (l + 1) * 12
    
73.             If Right(a(0, 0), 1) = "0" Then a(0, 0) = Left(a(0, 0), Len(a(0, 0)) - 1) Else Exit For
    
74.         Next
    
75.         If Right(a(0, 0), 1) = "." Then a(0, 0) = Left(a(0, 0), Len(a(0, 0)) - 1)
    
76.         
    
77.         a(0, 3) = Left(a(0, 3), Len(a(0, 3)) - p) & "." & Right(a(0, 3), p)
    
78.         For i = 1 To (l + 1) * 12
    
79.             If Right(a(0, 3), 1) = "0" Then a(0, 3) = Left(a(0, 3), Len(a(0, 3)) - 1) Else Exit For
    
80.         Next
    
81.         If Right(a(0, 3), 1) = "." Then a(0, 3) = Left(a(0, 3), Len(a(0, 3)) - 1)
    
82.         
    
83.         a(0, 4) = Left(a(0, 4), Len(a(0, 4)) - p) & "." & Right(a(0, 4), p)
    
84.         For i = 1 To (l + 1) * 12
    
85.             If Right(a(0, 4), 1) = "0" Then a(0, 4) = Left(a(0, 4), Len(a(0, 4)) - 1) Else Exit For
    
86.         Next
    
87.         If Right(a(0, 4), 1) = "." Then a(0, 4) = Left(a(0, 4), Len(a(0, 4)) - 1)
    
88.     End If
    
89.    
    
90.     For i = 1 To (l + 1) * 12
    
91.         If Left(a(0, 0), 1) = "0" And Left(a(0, 0), 2) <> "0." Then a(0, 0) = Right(a(0, 0), Len(a(0, 0)) - 1) Else Exit For
    
92.     Next
    
93.     For i = 1 To (l + 1) * 12
    
94.         If Left(a(0, 3), 1) = "0" And Left(a(0, 3), 2) <> "0." Then a(0, 3) = Right(a(0, 3), Len(a(0, 3)) - 1) Else Exit For
    
95.     Next
    
96.     For i = 1 To (l + 1) * 12
    
97.         If Left(a(0, 4), 1) = "0" And Left(a(0, 4), 2) <> "0." Then a(0, 4) = Right(a(0, 4), Len(a(0, 4)) - 1) Else Exit For
    
98.     Next
    
99.    
    
100.     If Left(a(0, 3), 1) = "-" Then a(0, 3) = "-" & a(0, 4)
     
101.     If Left(a(0, 4), 1) = "-" Then a(0, 4) = "-" & a(0, 3)
     
102.    
     
103.     If k = 0 Then
     
104.         If ka = "+" And kb = "+" Then
     
105.             PM = a(0, 0)
     
106.         ElseIf ka = "+" And kb = "-" Then
     
107.             PM = a(0, 3)
     
108.         ElseIf ka = "-" And kb = "+" Then
     
109.             PM = a(0, 4)
     
110.         ElseIf ka = "-" And kb = "-" Then
     
111.             PM = "-" & a(0, 0)
     
112.         End If
     
113.     ElseIf k = 1 Then 'a+b
     
114.         PM = a(0, 0)
     
115.     ElseIf k = 2 Then 'a-b
     
116.         PM = a(0, 3)
     
117.     ElseIf k = 3 Then 'b-a
     
118.         PM = a(0, 4)
     
119.     ElseIf k = 4 Then '-a-b
     
120.         PM = "-" & a(0, 0)
     
121.     End If
     
122.    
     
123. End Function

复制代码

香川群子

超长数位的组合计算

里面用到了：
长数位整数乘法
长数位整数减法
长数位整数除法
ZH.zip (18.03 KB, 下载次数: 103)

2013-6-25 10:55 上传

点击文件名下载附件

aoe1981

香川群子 发表于 2013-6-24 22:11
超长数位的组合计算

里面用到了：

还真是阳春白雪，曲高和寡啊。。。。。

aoe1981

plus 加
minus 减
times 乘
divide 除。。。。。。。。。。辅助阅读，要是有必要的思路，读起来就不累了。。。

jsgj2023

好东西,感谢老师!

benson817

香川群子 发表于 2011-8-1 16:56
下面是很长位数的乘法。可以处理正负数和小数点只能处理正整数的乘法

[ 本帖最后由 香川群子 于 2011-8-2  ...

香川老师，加法是PM（数A，数B），那减法和乘法，公式是什么样的？
比如A1减B1，A1乘以B1，公式是什么？谢谢指教

ljpmqb888

这个自定义函数只解决两个数的加减，如果是很多行数字就不行了，如A1:A10这个就不能用啊

水刀梁

香川群子 发表于 2011-8-1 17:03
再下面是很长位数的除法计算。
除法计算，可分别得到商和余数两个结果。
默认计算结果为商，如果k参数输 ...

群子老师，余数值不对啊

水刀梁

香川群子 发表于 2011-8-1 17:03
再下面是很长位数的除法计算。
除法计算，可分别得到商和余数两个结果。
默认计算结果为商，如果k参数输 ...

对的，我看错了，汗