DATEDIFF 函数计算指定的两个日期中第二个日期与第一个日期的时间差的日期部分换句话说，它得出两个日期之间的间隔结果是等于date2 date1 的日期部分的带符号整数值示例代码Dim time1 As Date Dim time2 As；DateDiffDateIntervalDay， #872015#，#882015#其中时间格式是#monthdayyear Vb60中，计算以天为单位计算的DateDiffquotdquot，#872015#， #882015#；vb计算一个月多少天的实现代码如下用DateDiff函数，方法DateDiffquotdquot， date1， date2date1为要计算天数的月的1号，如#200221#date2为下个月的1号，如#200231#执行函数后，值为28Visual Basic简称VB；yf = DateDiffquotmquot， kssj， jssj+1 nMonth = MonthkssjIf nMonth lt dMonth Then nYear = Yearkssj 1 1999 Else nYear = Yearkssj 1999 End If nMonth = nMonth 1 For i = 1 To yf；可以参考下面的代码Private Sub DTPicker1_ChangeText1Text = DateDiffquotdquot， DTPicker1， DTPicker2End Sub Private Sub DTPicker2_ChangeText1Text = DateDiffquotdquot， DTPicker1， DTPicker2End Sub。

不存在所谓的24时的，正确的或者说标准的应该是第二日的0时，所以240000是错误的时间格式，所以会报“类型不匹配”比方说结束时间是今天的“24”时，正确的写法是#2017518#，即明天的日期，而0时是可以；DateDiff 函数 返回 Variant Long 的值，表示两个指定日期间的时间间隔数目楼主你的代码写错了， datediff里面的参数里面的b 和 label1caption不需要双引号啊；缺了双引号 Private Sub Form_LoadDim a As Integer m = DateDiffquotdquot， quot2007 5 7quot， Date‘今天是9号 Text1Text = m Print End Sub；虽然说Variant型变量也可以作为DateDiff的参数VB会自动把它转换为Date型，但是如果你文本框中输入的字符串不符合日期型规范，VB就无法把它转为Date型，只能作为字符串来处理，这样就会出现“类型不符”的出错提示了正确。

使用函数datediffi，d1，d2，fw，fyi 必要字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 参数的设定值如下设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h；DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数要计算 date1 和 date2 相差的天数，可以使用“一年的日数”“y”；这个是一个字符串常量，表示 DateDiff 返回 是以什么为单位的 你这个dateintervalhour，应该是以 小时为返回单位 我没这样用过在帮助文档中说 quotyyyyquot年 quotmquot yue quothquot 时 quotsquot 秒比如。

d1 If IsDated1 Then #39判断txt文件中每一行是不是时间格式，以排除空行等特殊情况 If d lt CDated1 Then MsgBox d quot和quot d1 quot相差quot DateDiffquotsquot， d， CDated1 quot秒quot；TimeDiffLong = DateDiffquotsquot， TimeStart， Time你在这一步上边添个msgbox timestart vbcrlf time 看一下timestart和time都=多少；DateDiff#160I#160，#160D1#160，#160D2，FW，FY计算两个日期之间的期间？I#160设定两个日期之间的期间计算之单位譬如#160I=quotmquot#160表示计算的单位为月#160I#160的设；datediffquotnquot，#562008 121000#，#562008 153000 相差的分钟 datediffquotsquot，#562008 121000#，#562008 153000 相差的秒 建议 买本VB的函数参考大全，作工具书方便编程。