R
Runner77
Hi Guys,
Below is some code to start a stopwatch and run in Mins & Seconds I
would also like it to include hours as well.
Public Sub startClock()
Dim start
Range("F6").Select
start = Timer
Do While stopped = False
DoEvents
Worksheets("Stopw").Range("F4").Value = Int((Timer - start +
0.5) / 60)
Worksheets("Stopw").Range("H4").Value = (Timer - start) Mod 60
Worksheets("Stopw").Range("I4").Value = (Timer - start + 0.5) -
(Int(Timer - start + 0.5))
Loop
End Sub
Below is some code to start a stopwatch and run in Mins & Seconds I
would also like it to include hours as well.
Public Sub startClock()
Dim start
Range("F6").Select
start = Timer
Do While stopped = False
DoEvents
Worksheets("Stopw").Range("F4").Value = Int((Timer - start +
0.5) / 60)
Worksheets("Stopw").Range("H4").Value = (Timer - start) Mod 60
Worksheets("Stopw").Range("I4").Value = (Timer - start + 0.5) -
(Int(Timer - start + 0.5))
Loop
End Sub