[vb] Verschil tussen twee tijden

[Verwijderd]

Ik heb twee tijden in Strings zitten in het formaat uu:mm:ss

Nu wil ik het verschil ertussen berekenen. Kan dit met een standaard functie in vb ?

[Verwijderd]

DateDiff, maar die wilt date objecten en geen string. M.a.w. je moet de strings eerst omzetten naar een datum.

[whoami]

Waarom stop je datums in strings en niet in Date objecten (zoals CJ_S reeds vermeldde).

[Verwijderd]

Ik heb nu de volgende code :

code:

Private Sub Command1_Click()
Open "c:\LogOGO.txt" For Output As #1
Print #1, Time$
Close #1

End Sub

Private Sub Command2_Click()
Dim nieuwtijd As Date
Dim oudtijd As Date
Dim temp As Date

nieuwtijd = Time$

Open "c:\LogOGO.txt" For Input As #1
Input #1, oudtijd
Close #1

End Sub

ik krijg nu bij input #1, oudtijd een overflow error ??

[Verwijderd]

Probeer dit eens:

code:

Dim DatumTekst As String
Dim Datum As Date
Dim Verschil As Date

    DatumTekst = Time
    MsgBox DatumTekst, , "DatumTekst="
    
    
    Datum = CDate(DatumTekst)
    MsgBox Datum, , "Datum="
    
    Verschil = Time - Datum
    MsgBox Verschil, , "Dit duurde="

Omdat je waarschijnlijk te maken hebt met een logboek heb je niet zoveel aan alleen de tijd
Nog beter is dus:

code:

Dim DatumTekst As String
Dim Datum As Date
Dim Verschil As Date

    DatumTekst = Now
    MsgBox DatumTekst, , "DatumTekst="
    
    Datum = CDate(DatumTekst)
    MsgBox Datum, , "Datum="
    
    Verschil = Now - Datum
    MsgBox Verschil, , "Dit duurde="