[VB6] Conversione in hh:mm:ss

[freezone]

Come trasformare i secondi in hh:mm:ss

Function Tempo(TTCC As Long)
    'Trasformo i secondi in hh:mm:ss
    Dim Ore, Minuti, Secondi As Integer
    Minuti = Fix(TTCC / 60)
    'Se non supero l'ora, allora basta calcolare la divisione
    'e tenere il resto come secondi
    If Not Minuti >= 60 Then
        Ore = 0
        Minuti = Minuti
        Secondi = TTCC Mod 60
    Else
    'Se supero l'ora faccio un'ulteriore divisione ed il resto
    'in questo caso saranno i minuti, poi i secondi
        Ore = Fix(Minuti / 60)
        Secondi = TTCC Mod 60
        Minuti = Minuti Mod 60
    End If
    Tempo = Ore & ":" & Minuti & ":" & Secondi
End Function

Ciao

PS Non usatela per valori superiori a 86400 (24h) altrimenti non è più valido.