convert seconds to days:hrs:min

[neelsfer]

I use the following query to convert the average of seconds taken to treat patients in a hospital ward, to hours:min:sec , but has a problem when it exceeds 24hrs in a hospital. I first converted the hh:min:sec to seconds, in order to calculate average times.

seconds: DateDiff("s",[admit],[discharge])

then use this to convert back after calculations as long as it does not exceed 24hrs

time: Format([avgofSeconds]\3600,"00") & ":" & Format(([avgofSeconds]-([avgofSeconds]\3600)*3600)\60,"00") & ":" & Format(([avgofSeconds] Mod 3600)-(([avgofSeconds]-([avgofSeconds]\3600)*3600)\60)*60,"00")

I need to display the seconds as dd:hr:min if it can be done in Access pls. Anybody that has done this?

[zmbd]

neelsfer:

Standard time functions assume that you want to use the clock and report in real time; whereas, what you want is elapsed time. There's a ton of code snipits on the net to do this.

OE:
You can do sucessive division.
S/60 = Min
Min/60 = Hours

The "\" division will return just the IP

(from the developer's reference:
Remarks

Before division is performed, the numeric expressions are rounded to Byte, Integer, or Long expressions.

Usually, the data type of result is a Byte, Byte variant, Integer, Integer variant, Long, or Long variant, regardless of whether result is a whole number. Any fractional portion is truncated. However, if any expression is Null, result is Null. Any expression that is Empty is treated as 0.

Example
This example uses the \ operator to perform integer division.

Dim MyValue
MyValue = 11 \ 4 ' Returns 2.
MyValue = 9 \ 3 ' Returns 3.
MyValue = 100 \ 3 ' Returns 33.

Mod() will return remainders.

You then take the values and build your string for the report.