在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET中的TimeSpan对象。 列表A向你演示了如何使用TimeSpan对象来获得两个日期间的时间值。今后，你可以使用Subtract方法来获得两个日期间的实际天数。 关于列表A的一些说明 首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。 为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。查看本文来源
为治多等地区用户提供了全套网页设计制作服务，及治多网站建设行业解决方案。主营业务为成都网站设计、做网站、治多网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
function getTime2Time($time1, $time2)
{
var time1 = arguments[0], time2 = arguments[1];
time1 = Date.parse(time1)/1000;
time2 = Date.parse(time2)/1000;
var time_ = time1 - time2;
return (time_/(3600*24));
}
document.write(getTime2Time('2016-08-02', '2016-07-02'));
使用datediff函数
textbox3.text=datediff("d","textbox1.text","textbox2.text")
说明一下：
“d”表示“天”
还可以用“y”,"m","d","h","n","s"
分别表示“年”“月”“日”“时”“分”“秒”
VB有现成的函数：
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
