计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有7056人关注过本帖树形打印复制链接主题：计算

有点甜

小大 41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/26 10:28:00 [只看该作者]

Dim str As String = "编制单位:*********公司 2014年10月31日金额单位:元"
Dim reg As new System.Text.RegularExpressions.Regex("[^ ]+")
Dim mc As Object = reg.matches(str)
For i As Integer = 0 To mc.count - 1
output.show(mc(i).Value)
Next

发财

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/11/26 10:44:00 [只看该作者]

Dim str As String = "编制单位:*********公司 2014年10月31日金额单位:元"

Dim reg As new System.Text.RegularExpressions.Regex("[^ ]+")

Dim mc As Object = reg.matches(str)

For i As Integer = 0 To mc.count - 1

If mc(i).Value.Substring(4,1) = "年" Then

messagebox.show(mc(i).Value)

End If

发财

小大 43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/11/28 15:46:00 [只看该作者]

=SUM(C1:E5)为什么会变成=SUM(C1:C5)?

有点甜

小大 44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/28 15:55:00 [只看该作者]

无法理解你什么意思。例子

发财

小大 45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2014/12/2 8:39:00 [只看该作者]

有无函数显示2014年11月20日上月同期日期即是2014年10月20日？

有点甜

小大 46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/2 9:05:00 [只看该作者]

Dim str As String = "2014年11月20日"
Dim d As Date = new Date(str.SubString(0,4), str.SubString(5,2), str.SubString(8,2))
msgbox(Format(d.AddMonths(-1), "yyyy年MM月dd日"))