🚀 go-pugleaf

Ciao, io faccio cos�, uso queste due funzioni per avere la differenza in
secondi usando l'orologio di sistema, � abbastanza affidabile, fammi sapere.

bye


Option Explicit

Private secondiTrascorsi As Long

Public Function calcolaSecondi(orario As Date) As String
Dim ora As String
Dim minuti As String
Dim secondi As String

'reperisco l'ora nel formato 0-23
ora = Hour(orario)

'se � mezzogiorno, la funzione restituisce zero mentre lo imposto a 12
If InStr(orario, "AM") <> 0 And ora = 0 Then
    ora = 0
End If

'se � mezzanotte, la funzione restituise 12 mentre � 24
If InStr(orario, "PM") <> 0 And ora = 12 Then
    ora = 12
End If

'reperisco i minuti in formato 0-59
minuti = Minute(orario)
'reperisco i secondi in formato 0-59
secondi = Second(orario)

calcolaSecondi = Val(ora) * 3600 + Val(minuti) * 60 + Val(secondi)

End Function

Public Function calcolaDifferenzaTempo(valoreTimeToStop As String) As String
Dim timeToStart As Long
Dim valoreTimeToStart As String
Dim differenzaTempo As Long

valoreTimeToStart = calcolaSecondi(Time)

calcolaDifferenzaTempo = valoreTimeToStart - valoreTimeToStop

End Function

Private Sub cmdStart_Click()

    secondiTrascorsi = calcolaSecondi(Time)

End Sub

Private Sub Stop_Click()

    secondiTrascorsi = calcolaDifferenzaTempo(CStr(secondiTrascorsi))

    MsgBox "Sono trascorsi " & secondiTrascorsi & " secondi"

End Sub




ciao ciao