中科新闻网vicious英剧 百度云:vb中timer控件
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 21:11:27
如果在text1.text可显示了开始时间,
在text2.text中显示了结束时间
怎么样在text1.text中显示他们的 间隔时间
且格式要为hh:mm:ss
在text2.text中显示了结束时间
怎么样在text1.text中显示他们的 间隔时间
且格式要为hh:mm:ss
新建一个工程，放上三个textbox,一个commandbutton,一个timer
timer的Interval设置为500.
代码如下。
Option Explicit
Dim T1 As Date, T2 As Date
Private Sub Command1_Click()
T2 = Time()
Text2 = T2
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
T1 = Time()
Text1 = T1
End Sub
Private Sub Timer1_Timer()
Dim hh As Long
Dim mm As Long
Dim ss As Long
Dim mTs As Date
mTs = Time()
hh = DateDiff("h", T1, mTs)
mm = DateDiff("n", T1, mTs)
ss = DateDiff("s", T1, mTs)
'mTs = T1
'mTs = DateAdd("h", hh, T1)
'mTs = DateAdd("m", mm, T1)
'mTs = DateAdd("s", ss, T1)
Text3 = Format(hh & ":" & mm & ":" & ss, "hh:mm:ss")
End Sub
运行后text1显示开始时间,text3就是你需要的"流逝的时间",按commnd1停止，text2 显示结束的时间。希望解决了你的问题。
thecolors 的解决方法不错，不过DateDiff函数选择不适用
很简单，但是说起来很多，加我吧。
我的QQ：602391692