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

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.