Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教select语句的写法


  共有6736人关注过本帖树形打印复制链接

主题：请教select语句的写法
帅哥哟，离线，有人找我吗？
xuezxz
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：419 积分：4442 威望：0 精华：0 注册：2012/3/7 23:19:00 		请教select语句的写法  发帖心情 Post By：2013/3/12 18:36:00 [只看该作者]

想选择出 当月或之后离职的人与当月或之前入职的人语句怎么写？ 当月之前离职的和当月之后入职的除外。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/12 22:04:00 [只看该作者]

其实换个说法，就是获得当月日期范围：
 
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Tables("表名").Filter = "日期 >=#" $ dt1 & "# And 日期 <= #" & dt2 & "#"
 回到顶部
帅哥哟，离线，有人找我吗？
秋叶蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：86 积分：777 威望：0 精华：0 注册：2013/1/2 17:23:00 		  发帖心情 Post By：2013/4/10 23:15:00 [只看该作者]

这个代码有用,要记下来.

 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6818 积分：43128 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2013/4/11 7:51:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-12 22:04:00的发言：

其实换个说法，就是获得当月日期范围：
 
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Tables("表名").Filter = "日期 >=#" $ dt1 & "# And 日期 <= #" & dt2 & "#"

建议本年第一天、本年最后一天、本月第一天、本月最后一天、上月最后一天等写成内部函数，使用者直接调用。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询