Modules |
5.11 Calcolare le ore totali di un certo periodo partendo dal semplice totale dei secondi. |
Christian Pozzati |
Questa funzione permette di calcolare le ore totali (>24h) di un certo periodo partendo dal semplice totale dei secondi di quel periodo.Public Function calcolaore(totsecondi) as String Dim k, ks, km, kh For k = 1 To totsecondi ks = ks + 1 If ks = 60 Then km = km + 1 ks = 0 If km = 60 Then kh = kh + 1 km = 0 End If End If Next k calcolaore = kh & "." & km & "." & ks End Function |