以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教select语句的写法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29743)
--  作者：xuezxz
--  发布时间：2013/3/12 18:36:00
--  请教select语句的写法

想选择出 当月或之后离职的人与当月或之前入职的人语句怎么写？ 当月之前离职的和当月之后入职的除外。
--  作者：狐狸爸爸
--  发布时间：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 & "#"
--  作者：秋叶蓝
--  发布时间：2013/4/10 23:15:00
--  
这个代码有用,要记下来.
--  作者：lihe60
--  发布时间：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 & "#"

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