Cronometro

Question

Ciao Mauro,

ho scaricato un tuo codice, (Cronometro)

mi servirebbe se possibile una modifica, avere anche i centesimi di secondo, ho tentato in parecchi modi ma non sono riuscito.

Ti allego in codice 

Option Explicit

Private bln As Boolean

Private vStart As Variant

Private vDiff As Variant

Private Sub mTimer()

    If bln = True Then

        Application.OnTime Now + TimeValue("00:00:01"), "mEsegui"

    End If

End Sub

Public Sub mStart()

    ThisWorkbook.Worksheets("Foglio1").Range("A1:C1").Value = ""

    bln = True

    vStart = Now

    mEsegui

End Sub

Private Sub mEsegui()

    With ThisWorkbook.Worksheets("Foglio1")

        .Range("A1").Value = Hour(Now)

        .Range("B1").Value = Minute(Now)

        .Range("C1").Value = Second(Now)

        vDiff = Now - vStart

        .Range("A2").Value = Hour(vDiff)

        .Range("B2").Value = Minute(vDiff)

        .Range("C2").Value = Second(vDiff)

    End With

    mTimer

End Sub

Public Sub mStop()

    bln = False

End Sub

Public Sub mRiprendi()

    bln = True

    mEsegui

End Sub

Roccia

Answer 1

Ciao,

Ho seguito il tuo consiglio ho letto e cercato di capire la discussione ma non fa al caso mio.

• http://archi.forumup.it/about5872-0.html

il tuo codice non e' possibile modificarlo e aggiungergli almeno i decimi di secondo?

Ciao

Roccia

Answer 2

Grazie Mauro,

io pensavo a una modifica del tuo codice.

Ciao

Roccia

Answer 3

Ciao Mauro,

ho scaricato un tuo codice, (Cronometro)

mi servirebbe se possibile una modifica, avere anche i centesimi di secondo, ho tentato in parecchi modi ma non sono riuscito.

<cut>

NOTA. Il Timer blocca Excel ogni valore tempo fissato in OnTime. Volendo visualizzare lo scorrere dei decimi/centesimi/millesimi non è sicuramente la soluzione indicata.

Vedi:

• http://archi.forumup.it/about5872-0.html