VB有现成的函数：
创新互联公司是专业的金塔网站建设公司，金塔接单;提供成都做网站、成都网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行金塔网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差，代码：
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒
直接用两个日期相减，返回一个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
