VB中DateDiff函数用于计算两个日期相差的时间间隔,返回一个数值。DateDiff函数的语法如下:
DateDiff(interval, date1, date2 [, firstdayofweek [, firstweekofyear]])
其中,interval参数指定计算时间间隔的单位,date1和date2参数指定要比较的两个日期,firstdayofweek和firstweekofyear参数可选,用于指定日期的计算方式,如果不指定,则使用系统默认设置。
interval参数可选的值有:
- yyyy:以年为单位计算时间间隔;
- q:以季度为单位计算时间间隔;
- m:以月为单位计算时间间隔;
- y:以日为单位计算时间间隔;
- d:以小时为单位计算时间间隔;
- h:以分钟为单位计算时间间隔;
- n:以秒为单位计算时间间隔;
- s:以毫秒为单位计算时间间隔。
DateDiff函数的使用示例:
Dim firstDate As Date Dim secondDate As Date Dim diff As Integer firstDate = #1/1/2008# secondDate = #1/1/2009# diff = DateDiff("yyyy", firstDate, secondDate) MsgBox "The difference is " & diff & " year(s)"
上面的代码将计算两个日期之间相差的年数,并将结果显示在一个消息框中。