vb里面如何用timer计算时间差
3个回答
展开全部
计算时间两个时间相减就行了,为什么要用timer?
timer是用来按设定反复执行代码的。
如果要用timer显示程序找开的时间长短,你可以把timer的interval设置成1000(1秒)
然后在事件中写入一个显示时间的代码,
如:label1.caption = inttostr(strtoint(label1.caption)+1); 不清楚VB语法,大概就是这个意思。
label1 显示的数字为打个程序的秒数。用其它格式显示的话,你自己换算就行了。
timer是用来按设定反复执行代码的。
如果要用timer显示程序找开的时间长短,你可以把timer的interval设置成1000(1秒)
然后在事件中写入一个显示时间的代码,
如:label1.caption = inttostr(strtoint(label1.caption)+1); 不清楚VB语法,大概就是这个意思。
label1 显示的数字为打个程序的秒数。用其它格式显示的话,你自己换算就行了。
展开全部
是开始时间到结束时间求所经过的时间差,还是?这里有一个是开始时间到结束时间求所经过的时间差
Dim st, ed, j
Private Sub Command1_Click()
st = Now
Label4.Caption = Format((st), "hh:mm:ss")
Label5.Caption = ""
Label6.Caption = ""
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
ed = Now
j = ed - st
Label5.Caption = Format((ed), "hh:mm:ss")
Label6.Caption = Format(j, "hh:mm:ss")
Command1.Enabled = True
Command2.Enabled = False
End Sub
Dim st, ed, j
Private Sub Command1_Click()
st = Now
Label4.Caption = Format((st), "hh:mm:ss")
Label5.Caption = ""
Label6.Caption = ""
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
ed = Now
j = ed - st
Label5.Caption = Format((ed), "hh:mm:ss")
Label6.Caption = Format(j, "hh:mm:ss")
Command1.Enabled = True
Command2.Enabled = False
End Sub
追问
怎么没有Label1啊
追答
这是设置的页面
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
timer的时间属性设置好后,然后开始运行timer,时间就开始累加,这就是时间差
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询