计算表达式的函数

计算表达式的函数

为了能够接受用户以表达式的形式输入的数据，今天给出两个函数，可以解决这个问题。思路是先将表达式中可能存在的双角字符代替成半角字符，再调用系统的表达式计算函数做计算，以下两个函数可以自行试用。

Function JS(表达式 As String)
    表达式 = Replace(表达式, "＋", "+")
    表达式 = Replace(表达式, "－", "-")
    表达式 = Replace(表达式, "×", "*")
    表达式 = Replace(表达式, "÷", "/")
    表达式 = Replace(表达式, "（", "(")
    表达式 = Replace(表达式, "）", ")")
    
    Dim S As String, I As Long
    For I = 1 To Len(表达式)
        If Asc(Mid(表达式, I, 1)) > 0 Then S = S & Mid(表达式, I, 1)
    Next I
    
    JS = Application.Evaluate(S)
End Function

Function SuperJS(表达式 As String)
     表达式 = Replace(表达式, "＋", "+")
     表达式 = Replace(表达式, "－", "-")
     表达式 = Replace(表达式, "×", "*")
     表达式 = Replace(表达式, "÷", "/")
     表达式 = Replace(表达式, "（", "(")
     表达式 = Replace(表达式, "）", ")")
     
    Dim S As String, I As Long
    For I = 1 To Len(表达式)
        If Asc(Mid(表达式, I, 1)) > 0 Then S = S & Mid(表达式, I, 1)
    Next I
     
     With CreateObject("MSScriptControl.ScriptControl")
         .Language = "vbscript"
          SuperJS = .Eval(S)
     End With
End Function

——专注办公软件的二次开发及培训，你有问题，我有思路！
——微博、微信、CSDN同号：w_dexu。
——转载请注明出处！
扫码加微信