以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于日期判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87441)
--  作者：lovebc299
--  发布时间：2016/7/11 21:03:00
--  [求助]关于日期判断

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

 

是否在本月内，这个代码怎么写
--  作者：lovebc299
--  发布时间：2016/7/11 21:06:00
--  

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

 

 

 

这样写对吗

 

 

 
--  作者：cbt
--  发布时间：2016/7/11 23:12:00
--  
 直接判断，这个日期里面的，年=今年，月=今月，不就好了吗？
--  作者：大红袍
--  发布时间：2016/7/11 23:55:00
--  

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