关于计时器

Question

刚学VB,有个问题请教大家
要求有三个COMMAND,三个LABEL,在第一个LABEL是时间的开始,第二个LABEL是终止的时间,在第三个LABEL是经过的时间,三个COMMAND分别是开始,停止,退出.现在前二个LABEL已做好,问题是经过的时间怎么在第三个LABEL中显示,计时器已经在地开始COMMAND中启动,多谢大家

Answer 1

private sub timer1_timer()
    lebel3.caption=now()-cdate(label1.caption)
end sub

Answer 2

http://vb.infoserv.com.tw/sam/電子鐘.zip自己去參考吧

Answer 3

DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。
DateDiff 函数示例
本示例使用 DateDiff 函数来显示某个日期与今日相差几天。Dim TheDate As Date   ' 声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg