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

[bimajia5]

如题


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

[rainstormmaster]

直接相减即可

或用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)

[viena]

直接相减，得到的是相差的天数

[viena]

Date型变量表示一个时刻，时间轴的一个点，
Double型，其值为距1899年12月30 日午夜的天数
整数部分为天数，小数部分为时间