Msgbox DateDIff("S","2009-12-18 9:42:40","2009-12-18 9:42:45")

'S:以秒为单位;H以小时为单位;D:以天为单位;M:以月为单位;Y:以天为单位

DateDiff

DateDiff: 返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。

语法: DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

命名参数:
部分   描述
interval  必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔
Date1 date2  必要;Variant (Date)。计算中要用到的两个日期。
Firstdayofweek  可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear  可选。指定一年的第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。

interval 参数的设定值如下:
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

函数 DateDiff 使用方法,具体请参阅“【VB技巧】VB DateDiff 比较时间函数详解”:https://lcx.cc/post/690/