VB中的简单问题

来源:百度知道 编辑:UC知道 时间:2024/06/15 13:07:54
请问如何让两个时间相减,然后得出时间差?
如:开始时间 15:03:58
结束时间 15:04:07
经过时间 00:00:09
另外,为何
Private Sub Command1_Click(Index As Integer)
Command2.Enabled = True
Label4.Caption = Time
End Sub 中不能用Command1.Enabled = False语句
请给出详细的解决方法
谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!

Dim tBegin
Dim tEnd
Dim Times As Date

tBegin = "15:03:58"
tEnd = "15:04:07"

Times = TimeSerial(0, 0, DateDiff("s", tBegin, tEnd))
MsgBox "共计:" & Times

第二个问题,从你的Private Sub Command1_Click(Index As Integer) 来看
应该是建立了一个按钮数组Command1
所以要改变其中的一个按钮的值应该用Command1(index).enabled = false或
Command1(1).enabled = false这样的方式。