Beregn tid

Hej Alle

Jeg er igeng med en lille opgave hvor jeg skal beregne tid i "hh:mm:ss" jeg har prøvet lidt frem og tilbage med datediff og tid1 - tid2 osv. se kode her under.

Dim flyvetid, StartTid, LandTid As Date
Rem Dim flyvetid As VbDateTimeFormat


Private Sub CmdBeregnTid_Click()
flyvetid = Format(DateDiff("ss", TexStartTid.Text, _
TexLandingsTid.Text))
TexFlyveTid.Text = flyvetid
StartTid = TexStartTid.Text
LandTid = TexLandingsTid.Text
End Sub

Private Sub CmdLandet_Click()
Rem TexLandingsTid.Text = Format$(Now(), "hh:mm:ss")
TexLandingsTid.Text = Time

End Sub

Private Sub CmdStart_Click()
TexStartTid.Text = Time
StartTid = TexStartTid.Text
End Sub

Private Sub Timer1_Timer()
Rem Label7.Caption = Format$(Now(), "hh:mm:SS")
Label7.Caption = Time
End Sub