189 8069 5689
你的 第二日期比较应是小于 DateDiff(……)=0
10年积累的成都网站建设、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有海原免费网站建设让你可以放心的选择与我们合作。
在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
日期比较其实直接比较2个字符串就行了
dim a as string
dim b as string
a="日期1"
b="日期2"
if ab then
msgbox("过期")
else
msgbox("没过期")
end if
可以参考下面的代码：
Private Sub DTPicker1_Change()
Text1.Text = DateDiff("d", DTPicker1, DTPicker2)
End Sub
Private Sub DTPicker2_Change()
Text1.Text = DateDiff("d", DTPicker1, DTPicker2)
End Sub
扩展资料：
VB参考函数
Date 函数： 返回当前系统日期。
DateAdd 函数： 返回加上了指定的时间间隔的日期。
DateDiff 函数： 返回两个日期之间的间隔。
DatePart 函数： 返回给定日期的指定部分。
DateSerial 函数： 返回指定年月日的日期子类型的变体 。
DateValue 函数： 返回日期子类型的变体 。
Day 函数： 返回日期，取值范围为 1 至 31。
参考资料来源：百度百科-Visual Basic