Office中国论坛/Access中国论坛

标题: 自由输入四则运算公式示例 [打印本页]

作者: huangqinyong 时间: 2008-11-11 09:59
标题: 自由输入四则运算公式示例
转自：accesshome

功能简介：
　　运用Eval 函数的特性，进行四则运算

[attach]33099[/attach]

[ 本帖最后由 huangqinyong 于 2008-11-11 10:05 编辑 ]

作者: tmtony 时间: 2008-11-11 10:11
呵呵，不错的东东
我最近在研究解方程式，一元一次的，也用到eval,但还无法完全自动解出

作者: Henry D. Sy 时间: 2008-11-11 11:07
是不是分成十段，然后一段一段地输入。[:13] [:13]

作者: df 时间: 2008-11-12 21:46
[:13] [:13]

作者: 13601812106_01 时间: 2008-11-12 22:02

作者: 明镜 时间: 2008-11-12 22:07
学习了.

作者: changweiren 时间: 2008-11-12 23:59
学习学习

作者: wen123456 时间: 2008-11-15 19:39
study study

作者: soutyc 时间: 2008-11-18 22:22
xue xi yi xia

作者: lirong 时间: 2008-11-23 11:32
下来看看

作者: zhaofangyuan 时间: 2008-11-25 10:25
多谢共享!

作者: zhaofangyuan 时间: 2008-11-25 10:26
xiexie gongxiang

作者: xinanjiang 时间: 2008-11-25 12:48
[:50] [:50] [:50]

作者: lydia0451 时间: 2008-11-26 13:33
学习一下

作者: zx994398 时间: 2008-12-21 13:52
学习

作者: yori2007 时间: 2008-12-22 08:56
[:50] [:31]

作者: zc76hy78 时间: 2009-1-17 09:06
正在给孩子做个小东西，正好需要

作者: wdq 时间: 2009-1-17 11:53
eval函数，下载学一下。

作者: ACMAIN_CHM 时间: 2009-1-17 12:06
上次看到的另一种方法,可以计算比较复杂的算式，不过需要一个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 时间: 2009-2-28 08:58
HAO

作者: llp 时间: 2009-2-28 09:03
jnjhm

作者: 7777777 时间: 2009-2-28 09:26
下来看看

作者: jackysu78 时间: 2009-3-20 15:28
哈哈，这基本就是一个四则的计算器功能

作者: qw12345 时间: 2009-3-20 20:15
下来看看

作者: chaojianan 时间: 2009-3-20 20:46
支持,学习.

作者: ycxchen 时间: 2009-3-21 10:34
学习学习

作者: hjxcolh 时间: 2009-3-28 00:44
学习学习在学习

作者: BT幽灵 时间: 2009-3-30 22:57
很有用的东西啊。。真是好运

作者: yanwei82123300 时间: 2009-3-31 07:37
thank you share it my chirld is needing it, it help he teach

作者: queena 时间: 2009-4-5 08:58
dddddddddddddddddddddd

作者: 阿六爱狗 时间: 2009-4-6 16:44
学习了

作者: cnwang 时间: 2009-4-6 20:03
test

作者: guwenbo 时间: 2009-5-25 11:56
学习下

作者: 朱同学 时间: 2009-5-25 20:26
学习一下

作者: weixia0000 时间: 2009-5-26 10:30
好极啦！看看！

作者: zhufree 时间: 2009-9-10 14:02
学习一下

作者: lanshai 时间: 2009-9-10 16:36
好厉害啊！

作者: wufeng980114 时间: 2009-12-31 21:08
下载学习，正需要

作者: aodi2004 时间: 2010-1-22 17:24
好东东，看看

作者: kisssprite 时间: 2010-2-3 13:17
管它什么看了再说

作者: wuheng 时间: 2010-2-24 16:15
学习学习~~~~```

作者: gxm2322 时间: 2010-3-17 17:21
DDDDDDD

作者: mrd_wxqs 时间: 2010-4-17 17:14
好东西，先下了再研究，谢谢！

作者: zww3008 时间: 2011-8-24 20:09
本帖最后由 zww3008 于 2011-8-24 20:09 编辑

正需要,谢谢。

作者: yhf 时间: 2011-10-30 17:44
学习

作者: YXH_YXH 时间: 2013-5-20 16:55
正需要,谢谢！！！

作者: YXH_YXH 时间: 2013-5-20 16:56
正需要。谢谢！！！

作者: mclyl 时间: 2015-8-11 07:13
我最近在研究解方程式

作者: 超人不会飞 时间: 2015-8-12 10:39
呵呵，不错的东东我最近在研究解方程式，一元一次的，也用到eval,但还无法完全自动解出

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)