[VB6] Somma ore, minuti, secondi in TextBox

[Massimo Moretti]

Chiedo il vostro aiuto per risolvere un mio piccolo problema.

Vorrei ottenere la somma di più tempi inseriti in vari TextBox

Esempio:
tempo 1= 00.01.50
tempo 2= 00.11.12
tempo 3= 01.48.22

Totale tempo = 02.01.24

Grazie a tutti...Ciao

[LMondi]

Prima devi trasformare da 60mi in centesimi, con una semplice proporzione.
Ps: ad esempio 15' =
60:100=15:x 1500/60 = 25
Poi puoi fare le somme.

[mgmg]

Oppure puoi portare tutto in secondi e ritrasformarli in ore, minuti e secondi dopo la somma:

    Dim TempoT As Date
    durat = "00.01.50"
    durata = (3600 * Val(Mid(durat, 1, 2)) + (60 * Val(Mid(durat, 4, 2)))) + Val(Mid(durat, 7, 2))
    durat1 = durata + durat1
    durat = "00.11.12"
    durata = (3600 * Val(Mid(durat, 1, 2)) + (60 * Val(Mid(durat, 4, 2)))) + Val(Mid(durat, 7, 2))
    durat1 = durata + durat1
    durat = "01.48.22"
    durata = (3600 * Val(Mid(durat, 1, 2)) + (60 * Val(Mid(durat, 4, 2)))) + Val(Mid(durat, 7, 2))
    durat1 = durata + durat1
    ore = Fix(durat1 / 3600)
    minuti = Fix(durat1 / 60) Mod 60
    secondi = durat1 Mod 60
    TempoT = ore & ":" & minuti & ":" & secondi

E' solo un esempio senz'altro migliorabile.
Ciao

[Massimo Moretti]

OK, vi ringrazio entrambe, anche se ho utilizzato il suggerimento di mgmg e devo dire che funziona proprio come desideravo.

ciao e... alla prossima