求一段能显示两个时间的差的函数（急）解决方法

求一段能显示两个时间的差的函数（急）
如题


希望朋友测试后能把代码放上，谢谢了！写完整些！如果能有讲解，小弟另开贴送分

------解决方案--------------------
直接相减即可

或用DateDiff(vb自己带的):
DateDiff 函数返回两个日期之间的时间间隔。 格式：
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

参数
interval
必选项。String expression 表示用于计算 date1 和 date2 之间的时间间隔。date1, date2
必选项。日期表达式。用于计算的两个日期。
Firstdayofweek
可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
Firstweekofyear
可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

yyyy 年
q 季度
n 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒


例子：
DiffADate = "从当天开始的天数: " & DateDiff( "d ", Now, theDate)