主题：到期日期 筛选

 这个是计算生日的代码。就是计算未来20日生日的人。

看了下代码逻辑，是没问题的。12月30日生日的人，肯定能筛选出来。

 或者你说你要做什么效果。

 你要的是不是这个？

dim d as date = date.today
Tables("规培").filter = "规培结束时间 >= #" & d & "# and 规培结束时间 <= #" & d.AddDays(20) & "#"