Question

VB 程序运行时间的问题

下面是一个程序运行时间的程序，
Dim t As Date
Private Sub Form_Load()
t = Now
Timer1.Interval = 1
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 60000
Dim i, h, m As Integer
i = DateDiff("n", t, Now)
h = i \ 60
m = i Mod 60
Label1.Caption = "程序已经运行" & h & "小时" & m & "分钟"
End Sub

请问上面的 t = Now 和 i = DateDiff("n", t, Now) 是怎么回事？
请高手详细的解释一下，最好用普通话，别用MSDN里的资料解释。

还有就是如果显示 秒， 应该怎么改写代码？

Answer 1

应该是M吧Minutes
DateDiff("m",t,date)
其中的参数"m" 返回分数,t代表运行时间 ,Now 代表运行时间
取的是t 与 Now 的 间隔分钟数 ,
-----
解释下面的
DateDiff("s",t,date)
其中的参数"s" 返回秒数,t代表运行时间 ,Now 代表运行时间
取的是t 与 Now 的 间隔秒数
---显示秒的
Dim t As Date
Private Sub Form_Load()
t = Now
Timer1.Interval = 1
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000 '加快了显示速度
Dim i As Integer, h As Integer, m As Integer, s As Integer
i = DateDiff("s", t, Now) '我只改了这一句
h = i \ 3600'按照进率问题,3600秒= 1小时
m = i \ 60'按照进率问题,60秒=一分
s = i Mod 60
Label1.Caption = "程序已经运行" & h & "小时" & m & "分钟" & s & "秒"
End Sub

Answer 2

t=now是记录程序的启动时间.后面的timer的作用就是1分钟刷新一次显示的时间.i 表示的时候分钟,h 表示的时候小时,m表示的时候分钟.datadiff 是计算两个时间的差 他这里用的n 就表示用t和now的两个时间的分钟差.h\60就是计算的小时.m mod 60 就是计算的分钟. 比如: t=2009-01-01 12:00:00 now =2009-01-01 13:09:00 则i=69 按上面的计算 h=1,m=9

Answer 3

看不懂哦 给你定