自由输入四则运算公式示例

zhaofangyuan

多谢共享!

zhaofangyuan

xiexie gongxiang

xinanjiang

[:50] [:50] [:50]

lydia0451

学习一下

zx994398

学习

yori2007

[:50] [:31]

zc76hy78

正在给孩子做个小东西，正好需要

wdq

eval函数，下载学一下。

ACMAIN_CHM

上次看到的另一种方法,可以计算比较复杂的算式，不过需要一个ADO的支持。

Public Function cc(sFormula As String) As Double
    Dim rs As New ADODB.Recordset
    Dim sSQL As String
   
    sSQL = "select " & sFormula
    rs.Open sSQL, CurrentProject.Connection
   
    cc = rs.Fields(0).Value
    rs.Close
    Set rs = Nothing
   
End Function


?cc("(1+1)*6+6/3")
14

?cc("sin(2)")
0.909297426825682

jiayinlb

HAO