主题：[求助]关于日期判断

我想判断tables("订单")rows("日期")

 

是否在本月内，这个代码怎么写

Dim yue As Date = Date.now()
Dim a As Integer = Date.now().Year
Dim b As Integer = Date.now().Month
Dim Days As Integer = Date.DaysInMonth(a,b)
Dim kaishi As Date = new Date(a,b,1)
Dim jieshu As Date = new Date(a,b,days)

If tables("订单")rows("日期") >= #" & kaishi & "#  and  tables("订单")rows("日期") <= #" & jieshu & "#  then

 

 

 

这样写对吗

 

 

 

 直接判断，这个日期里面的，年=今年，月=今月，不就好了吗？

 还是直接说你想做什么吧，最好有实例说明。