Timing User 1

[anastasia]

Hi,

I have the following code which is activated when a user clicks on a Start button.

MsgBox "Time Started. You have 15 Minutes.", , "Time Started"

Application.OnTime When:=Now + TimeValue("00:15:00&quot, Name:="ProjectCompany.Module1.MacroStart"

The timer runs until 15 mins is up and then runs the code in MacroStart which is fine.

However, the user can also click on a QUIT button to exit what they are doing, and want to know how long they spent on the task until clicking on the QUIT button. e.g if they spent only 6 mins on the task. How do record the time since they hit the START button until they hit the QUIT button?, possible in minutes & seconds?.

 

[xlbo]

Add
With Sheets("Time Store&quot.range("A1&quot
.value = now()
end with

to your start macro

On your quit macro, use
EndTime = now()
StartTime = sheets("Time Store&quot.range("A1&quot.value
TaskTime = Format(EndTime - StartTime,"hh:mm:ss&quot

HTH Rgds
~Geoff~

 

[Loomah]

Hi
very slight variation

Declare a variable StartTime in General declaration of the form module (or some other way that more than one procedure can see it. I'm not too good with declarations!!)

add the line
StartTime = Now()
to the starting process

add
MsgBox "Time used = " & Format(Now() - StartTime, "hh:mm:ss&quot
to the quit button code

However you will not be able to refer back to the start time again with this method unlike xlbo's

;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[segmentationfault]

I would take the best of both designs.

Store the data as private module level variables, but as xlbo implied, keep track of both values. It's just more convenient for you that way.

(You can also override the application's exit function to prevent people from closing the whole thing while the macro is running.)

Private StartTime As Date
Private EndTime As Date

Private Sub cmdEnd_Click()
    StartTime = Now()
End Sub

Private Sub cmdStart_Click()
    EndTime = Now()
    MsgBox "Elapsed Time: " + Format((EndTime - StartTime), "hh:mm:ss"), vbOKOnly
End Sub

 

[anastasia]

Loomah (TechnicalUser)

Great, your code worked perfect, does exactly what I wanted.

Thanks again.