VB DateDiff 用法，请大神给个实例！

Question

关于 DateDiff 函数的实例麻烦大神用 Timer 给个实例学习下！谢过！

Answer 1

我复制过来的，不过解释清了。最后，实际例子在下面：
DateDiff (I , D1 , D2[,FW[,FY]])
计算两个日期之间的期间?
I ：设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如：
yyyy > Year 年
q Quarter 季
m Month 月
d Day 日
w Weekday 星期
h Hour 时
n Minute 分       ·[这里应该用n代表，很多书说m其实是错的]·
s Second 秒
D1 ,D2：计算期间的两个日期表达式，若 >date1 较早，则两个日期之间的期间结果为正值；若 >date2 较早， 则结果为负值。
FW ：设定每周第一天为星期几， 若未设定表示为星期天。 >FW 的设定值如下：
0 使用 >API 的设定值。
1 星期天
2 星期一
3 星期二
4 星期三
5 星期四
6 星期五
7 星期六
FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：
0 使用 >API 的设定值。
1 一月一日那一周为一年的第一周
2 至少包括四天的第一周为一年的第一周
3 包括七天的第一周为一年的第一周

新建工程-添加一个timer控件
放入代码
Dim d1, d2
Private Sub Form_Load()
d1 = Now
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
d2 = Now
Debug.Print DateDiff("s", d1, d2, vbMonday, vbFirstJan1)
End Sub
这个是计算两个日期相差秒数的。

Answer 2

简单点：Option Explicit
Dim iniTime As Date

Private Sub Form_Load()
iniTime = Now '程序加载时间
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "当前程序已持续运行" & DateDiff("s", iniTime, Now) & "秒"
End Sub