File VbScript - Calcolare Durata Procedura

 Vi riporto il codice per poter calcolare il tempo trascorso in un file VbScript

-----------------------------------------------------------------------------------------------------------------------

DataInizio = Now

OrarioInizio = Hour(DataInizio) & ":" & Minute(DataInizio) & ":" & Second(DataInizio)

SecondiInizio = (Hour(DataInizio) * 3600) + (Minute(DataInizio) * 60) + Second(DataInizio)

SecondiInizio = 86400 - SecondiInizio

WScript.Sleep 2000

DataFine = Now

GiorniPassati=DateDiff("d",DataInizio,DataFine)

OrarioFine = Hour(DataFine) & ":" & Minute(DataFine) & ":" & Second(DataFine)

SecondiFine = (Hour(DataFine) * 3600) + (Minute(DataFine) * 60) + Second(DataFine)

IF OrarioFine < OrarioInizio Then GiorniPassati = GiorniPassati - 1

DurataProcedura = SecondiInizio + SecondiFine

If DurataProcedura >= 86400 then DurataProcedura = DurataProcedura - 86400

Ore = DurataProcedura \ 3600

Minuti = (DurataProcedura - (Ore * 3600)) \ 60

Secondi = DurataProcedura -((Ore * 3600)+(Minuti*60))

If GiorniPassati <> 0 then

    wscript.echo "Durata Procedura : " & GiorniPassati & " giorni, " & Ore & ":" & Minuti & ":" & Secondi

Else

    wscript.echo "Durata Procedura : " & Ore & ":" & Minuti & ":" & Secondi

End If