| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]日期筛选问题？？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190269) |
| -- 作者：老鼠 -- 发布时间：2024/1/27 14:01:00 -- [求助]日期筛选问题？？？ 我有一数据表"请假记录"中有两个日期列：[起始日期]与[终止日期]，我要按月筛选。比如我要筛选当月的数据行，我应该如何编写代码？ 筛选数据行意思理解：起始日期为：2022年01月25日，终止日期为：2024年02月02日，我要筛选当月数据行时，该行数据就应该被筛选到； 起始日期为：2022年01月25日，终止日期为：2023年12月22日，我要筛选当月数据行时，该行数据就应该被剔除。 以下是我当前筛选代码，但没有用。 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)) \'获取本月的最后一天 Dim Filter As String Filter = "起始日期 >= #" & dt1 & "# And 终止日期 <= #"
& dt2 & "#" Tables("请假记录").Filter = Filter |
| -- 作者：有点蓝 -- 发布时间：2024/1/27 14:13:00 -- Filter = "终止日期 >= #" & dt1 & "# And 终止日期 <= #" & dt2 & "#" |
| -- 作者：老鼠 -- 发布时间：2024/1/27 20:22:00 -- 感谢！ [此贴子已经被作者于2024/1/27 20:24:35编辑过]
|