[أبو عمر]

ضع ثلاث مربعات نص وتيمر وكوماند بوتن

PHP كود :

Private Sub Command1_Click()
Dim dtime1 As Date
Dim dTime2 As Date
Dim dTimeDiff As Date
dtime1 = CDate(Text1.Text)
dTime2 = CDate(Text2.Text)
dTimeDiff = dTime2 - dtime1
Text3.Text = Format$(dTimeDiff, "hh:nn:ss") 'nn is forminutes... if you use MM you'll get months...
End Sub
Private Sub Form_Load()
Text1 = Time
End Sub
Private Sub Timer1_Timer()
Text2.Text = Time
End Sub