用表达式求年月日的例子，请各位测试一下... - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用表达式求年月日的例子，请各位测试一下...

共有27963人关注过本帖树形打印复制链接主题：用表达式求年月日的例子，请各位测试一下...

狐孩儿

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

加好友

发短信

等级：婴狐帖子：60 积分：561 威望：0 精华：2 注册：2008/9/10 13:44:00

Post By：2008/9/19 12:32:00 [显示全部帖子]

還是這樣通用些
If CurrentTable.Rows(e.DataRow("_Identify")-1)("日期") IsNot Nothing Then
e.DataRow("月份")= CurrentTable.Rows(e.DataRow("_Identify")-1)("日期").Month
End if

狐孩儿

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

加好友

发短信

等级：婴狐帖子：60 积分：561 威望：0 精华：2 注册：2008/9/10 13:44:00

Post By：2008/9/19 12:47:00 [显示全部帖子]

以下是引用lxl在2008-9-19 12:39:00的发言：

效率上不说，你的代码能简化成
If e.DataRow("日期") IsNot Nothing Then
e.DataRow("月份")= e.DataRow("日期").Month
End if

呵呵,多謝版主指點,我也試過用DataRow,只是多次沒寫成.這次記住了:e.DataRow("日期") 表示引用當前行日期列數據.

狐孩儿

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

加好友

发短信

等级：婴狐帖子：60 积分：561 威望：0 精华：2 注册：2008/9/10 13:44:00

Post By：2008/9/19 13:18:00 [显示全部帖子]

這個用表达式求月，適用日期格式:D/M/YYYY
SubString(Convert([日期],'System.String'),IIF(SubString(Convert([日期],'System.String'),1,2) Like '*/*',3,4),IIF(SubString(Convert([日期],'System.String'),IIF(SubString(Convert([日期],'System.String'),1,2) Like '*/*',3,4),2) Like '*/*',1,2))

唉,就算是"独目"之人,也能根据"日期"一眼看出它的年月日来,多么怀念易表的函数啊!

[此贴子已经被作者于2008-9-19 13:25:18编辑过]

狐孩儿

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

加好友

发短信

等级：婴狐帖子：60 积分：561 威望：0 精华：2 注册：2008/9/10 13:44:00

Post By：2008/9/19 14:22:00 [显示全部帖子]

这个表达式支持"YYYY-M-D"和"D/M/YYYY"格式求"月":
IIF(Convert([日期], 'System.String') Like '*-*',SUBSTRING(Convert([日期], 'System.String'),6,IIF(SUBSTRING(Convert([日期], 'System.String'),7,1) = '-', 1,2)),SubString(Convert([日期], 'System.String'),IIF(SubString(Convert([日期], 'System.String'),1,2) Like '*/*',3,4),IIF(SubString(Convert([日期], 'System.String'),IIF(SubString(Convert([日期], 'System.String'),1,2) Like '*/*',3,4),2) Like '*/*',1,2)))

下一主题 >> << 上一主题

主题：用表达式求年月日的例子，请各位测试一下...