VB 程序运行时间的问题

答案:3 悬赏:0 手机版

解决时间 2021-01-29 03:50

提问者网友：你给我的爱
2021-01-28 11:34

VB 程序运行时间的问题

最佳答案

五星知识达人网友：詩光轨車
2021-01-28 12:17

应该是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

全部回答

1楼网友：孤老序
2021-01-28 14:29

看不懂哦给你定

2楼网友：玩世
2021-01-28 12:56

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息