日期比较其实直接比较2个字符串就行了
北辰网站制作公司哪家好，找成都创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作，到程序开发，运营维护。成都创新互联公司成立与2013年到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。
dim a as string
dim b as string
a="日期1"
b="日期2"
if ab then
msgbox("过期")
else
msgbox("没过期")
end if
直接用两个日期相减，返回一个timespan实例，它的Days属性就是天数。
dim d1 as datetime, d2 as datetime
dim days as integer
d1 = DateTime.Today.AddDays(-1)
d2 = DateTime.Today
days = (d2 - d1).Days
你的 第二日期比较应是小于 DateDiff(……)=0
在VB.NET中断看下 str1的是什么值，然后在sql查询管理器执行就知道了。
日期的比较写这么繁，like的比较符要前或后可以加上 通配符%，如果不需要通配直接用 =
参考
str1="select " tlsSelect1 ",sum(数量) as 合计数 from 出入库单 where 单据分类 like '%"
tls "%' and 内外销 like '%内%' and 日期=" dtp1.Value.Date " and 日期=
" dtp2.Value.Date " group by " tlsSelect1
