大数精确计算.docVIP

========LongJs.bas========= Option Explicit函数名称：检查是否为数字Function IsNumeric_Ex(x As String) As BooleanDim i As IntegerFor i = 1 To Len(x)?? If InStr(0.123456789+-, Mid(x, i, 1)) = 0 Then Exit FunctionNextIsNumeric_Ex = TrueEnd Function函数名称：获取大数的小数位Function GetXsw(x As String) As Long?? Dim i As Long?? i = InStr(x, .)?? If i 0 Then????? GetXsw = Len(x) - i?? End IfEnd Function函数名称：在大数中插入的小数点Sub InsDot(x As String, Xsw As Integer)Dim i As IntegerIf Xsw 0 Then 如果有小数，则划出小数部分?? i = Len(x) - Xsw?? If i 0 Then????? x = Left(x, i) . Mid(x, i + 1)?? Else????? x = 0. String(Abs(i), 0) x?? End If?? DelSpace x, 1End IfEnd Sub函数名称：比较2个数，如果Num1Num2，则输出结果True；如果Num1=Num2则输出结果FalseFunction StrLt(Num1 As String, Num2 As String) As BooleanDim LengthOfNum1???? As Long, LengthOfNum2?????? As LongDim i???? As LongDim NumByte1???? As Long, NumByte2?????? As LongDelSpace Num1DelSpace Num2LengthOfNum1 = Len(Num1):?????? LengthOfNum2 = Len(Num2)If LengthOfNum1 LengthOfNum2 Then?????????? 进行长度比较????? StrLt = FalseElseIf LengthOfNum1 LengthOfNum2 Then?????????? 同上????????? StrLt = True????? Else?? 如果长度相等??????? If Num1 = Num2 Then StrLt = True: Exit Function????????? For i = 1 To LengthOfNum1???????????? 逐位进行比较????????????? NumByte1 = Mid(Num1, i, 1)????????????? NumByte2 = Mid(Num2, i, 1)????????????? If NumByte1 NumByte2 Then?????????? 如果不相等????????????????? If NumByte1 NumByte2 Then StrLt = True???????????????? 且Num1的那位小于Num2的那位，输出True????????????????? Exit For???? 不管是否为True，都退出循环????????????? End If????????? Next iEnd IfEnd Function 删除数字无效0(sType=0 删除前面的0，非0 删除后面的0)Sub DelSpace(Num1 As String, Optional sType As Integer = 0)Dim i As LongNum1 = Trim(Num1)If sType = 0 Then?? For i = 1 To Len(Num1)???? If Mid(Num1, i, 1) 0 Then??????? Num1 = Mid(Num1, i)??????? Exit Sub???? End If?? NextElse?? For i = Len(Num1) To 1 Step -1???? If Mid(Num1, i, 1) 0 Then??????? Num1 = Left(Num1, i)??????? Exit Sub???? End If??