题目是做一个类似秒表的记时器
------------------------------------------------------------------
开始时间： Label1
结束时间： Label2
经过时间： Label3
command1（开始） command2（结束）

-------------------------------------------------------------------
dim a as single, b as single
command1 click()
label1.caption = time'显示出开始时间
a = label1.caption

command2 click()
label2.caption = time'显示出结束时间
b = label2.caption
label3.caption = b - a
---------------------------------------------------------------------
这样可以算出精确到小数的时间差，如：1.76543
但题目要求的格式是 0：00：2

由于书没说到怎么计算时间，只说了日期，所以希望哪为能告诉下我。
谢谢。

用FORMAT函数``

Dim a, b

Private Sub Command1_Click()
a = Time
Label1.Caption = Format(a, "hh:mm:ss") '显示出开始时间

End Sub

Private Sub Command2_Click()
b = Time
Label2.Caption = Format(b, "hh:mm:ss") '显示出结束时间

Label3.Caption = Format(b - a, "hh:mm:ss")
End Sub

哎呀，都是我没留心，把刚学的fomat 忘记了。谢谢楼上的了。