标题：[求助]日期筛选问题？？？

1楼

老鼠发表于：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

2楼

有点蓝 发表于：2024/1/27 14:13:00

Filter = "终止日期 >= #" & dt1 & "# And 终止日期 <= #" & dt2 & "#"

3楼

老鼠发表于：2024/1/27 20:22:00

感谢！

[此贴子已经被作者于2024/1/27 20:24:35编辑过]

共3 条记录, 每页显示 10 条, 页签: [1]