Calculate response time 1

[rmh3619]

I have two now() values in text boxes (txtDate1 and txtDate2)

the first date is the registration date and the second is the start date. i want to calculate the response time (date2 - date1) and have the result in the format hh:mm:ss

How can i do this?

 

[fneily]

Bring up the property sheet of the textbox where you have your calculation, =[txtdate1]-[txtdate2]
For the Format option, put hh:nn:ss

 

[rmh3619]

thanks fneily but this does not entirely produce the result i'm looking for.

if for instance the registration date was 2 days, 4 hours and 10 minutes ago i want the value in the txtResponse textbox to show 52:10:00

 

[fneily]

Oh, the Now() threw me.
I created two textboxes. The control source for the first was
=DateDiff("n",[testDate1],[testDate2])
This changes the difference to minutes.
The control source of the second is
=[TotalMin]\60 & Format([TotalMin] Mod 60,"\:00")
This formats it the way you want.
So you can make the first textbox invisible.

 

[fneily]

You may want to look at:
A More Complete DateDiff Function

http://www.accessmvp.com/djsteele/Diff2Dates.html

This has a variety of date/time formatting coding.

 

[fneily]

Found this in my notes:
On time and how much has elapsed

http://office.microsoft.com/en-us/access/HA011102181033.aspx

 

[fneily]

One more:
Functions for calculating and for displaying Date/Time values in Access

http://support.microsoft.com/kb/210604

 

[rmh3619]

thanks fneily!

 

[fneily]

I need glasses. I just reread your post and you want seconds.
So you can create an unbound textbox, then on the Oncurrent event of the form you can put:

Private Sub Form_Current()
Dim secinterval
Dim x
secinterval = Me![testdate2].Value - Me![testdate1].Value
x = Int(CSng(secinterval * 24)) & ":" & Format(secinterval, "nn:ss")
Me![Text9].Value = x
End Sub

Text9 is the unbound textbox in this case.