Come trasformare i secondi in hh:mm:ss
codice:
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.