主题：求助：怎么实现本月十五到上月十五的数据查询呢？

Dim d1 as date = new Date(date.today.year,Date.today.Month,15)  '本月15

Dim d2 as date = d1.Addmonths(-1) '上个月对应日期

d2= new Date(d2.year,d2.month,15) '精确到上月15，防止万一