Display time on form, add current time data

  • Thread starter Thread starter SandyB
  • Start date Start date
S

SandyB

I want to create a uneditable field (label?) on a form
that will display the current time - obviously refreshing
more than once a minute. I also have begin and end time
fields that I would like to insert the current time on
double click, for example. I would also like to
automatically calculate time elapsed (also on double
click?) in another field. Thanks for your help!
 
SandyB said:
I want to create a uneditable field (label?) on a form
that will display the current time - obviously refreshing
more than once a minute. I also have begin and end time
fields that I would like to insert the current time on
double click, for example. I would also like to
automatically calculate time elapsed (also on double
click?) in another field. Thanks for your help!
Click to expand...


Use the form's Load (or other appropriate) event to set the
start time:

Me.txtStartTime = Now()
Me.TimerInterval = 250 'milliseconds

Use the form's Timer event to update the "clock" text box.

Me.txtCurrentTime = Now()

The double click thingy can the do calculation something
like this:

Me.TimerInterval = 0 'turn timer off
Me.txtEndTime = Now()
lngElapsedSeconds = DateDiff("s", Me.txtEndTime,
Me.txtStartTime)
lngHours = lngElapsedSeconds \ 3600
lngMinutes = (lngElapsedSeconds - 3600 * lngHours) \ 60
Me.ElapsedTime = lngHours & Format(lngMinutes, "\:00") _
Format(lngElapsedSeconds Mod 60, "\:00")

NOTE: be sure to close this form before trying to edit any
module, the timer can seriously interfere with the code
editor.
 
Back
Top