VB 程序运行时间的问题

显示全部楼层 · 2016-9-27 07:54:48

下面是一个程序运行时间的程序，
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里的资料解释。
还有就是如果显示秒，应该怎么改写代码？

千问 · 2016-9-27 07:54:48

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

千问 · 2016-9-27 07:54:48

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

千问 · 2016-9-27 07:54:48

看不懂哦给你定...