Sammenligning af 2 tider

Dim tid1 As Date
        Dim tid2 As Date
        Dim hrs As Int16
        Dim min As Int16
        Dim sec As Int16

        Dim diffStr As String

        tid1 = CDate("13:47:02")
        tid2 = CDate("14:32:55")

        hrs = DateDiff(DateInterval.Hour, tid1, tid2)
        min = DateDiff(DateInterval.Minute, tid1, tid2) - (60 * hrs)
        sec = DateDiff(DateInterval.Second, tid1, tid2) - (60 * min)

        diffStr = CStr(hrs) & ":" & CStr(min) & ":" & CStr(sec)

        Debug.WriteLine(diffStr)

Sådan kunne man gøre. Der er brugt VB .NET syntaks - hvis du bruger VB 6, skal DateInterval.Hour ændres til den tilsvarende konstant; det kan du slå op i dokumentationen.

driis -> Returnere HELE tidsintervallet i både timer, minutter og sekunder... Altså bliver 13:30:30->14:45:45 til 1:60:81175... ikke helt det ønskede resultat ;)

Hmm, det gjorde det da, da jeg testede. Hvordan ser din kode ud ?

Ligesom din, blot med nogle få ændringer så kode kunne køres i VB6:

Private Sub Command1_Click()
        Dim tid1 As Date
        Dim tid2 As Date
        Dim hrs As Integer
        Dim min As Integer
        Dim sec As Integer

        Dim diffStr As String

        tid1 = CDate("13:30:30")
        tid2 = CDate("14:45:45")

        hrs = DateDiff("h", tid1, tid2)
        min = DateDiff("m", tid1, tid2) - (60 * hrs)
        sec = DateDiff("s", tid1, tid2) - (60 * min)

        diffStr = CStr(hrs) & ":" & CStr(min) & ":" & CStr(sec)

        Me.Caption = diffStr
End Sub

Yeah Baby!!! Jeg fandt funktionen 'TimeValue' der kan sammenligne to tider... Min kode (testbasis - men det virker :D):

Time1 = Text1.Text
Time2 = Text2.Text

Diff = TimeValue(Time2) - TimeValue(Time1)

Hourdiff = Hour(Diff)
Mindiff = Minute(Diff)
SecDiff = Second(Diff)

Text3.Text = Hourdiff
Text4.Text = Mindiff
Text5.Text = SecDiff

------------------------------
Ellers tak for hjælpen driis!
-Sion