我有一数据表"请假记录"中有两个日期列:[起始日期]与[终止日期],我要按月筛选。比如我要筛选当月的数据行,我应该如何编写代码?
筛选数据行意思理解:起始日期为: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