Date and Time formating

[Guest]

First of all, I'd like to thank all.
I have this formula which works well

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date] & " " &
[Arrival Time])

I get a values as double precision numbers like so:
01/01/2005 13:00 01/02/2005 14:05 "1.04513888889051"
My question:
I want to format as: X day X hours X minutes? Not, the decimal equivalent.
Any thoughts, thanks again.

 

[Duane Hookom]

Doug Steele has a nice function for doing this at
http://www.accessmvp.com/djsteele/Diff2Dates.html.

 

[Guest]

No disrespect to you, but can't I just use the format function without
writing all this code?

Doug Steele has a nice function for doing this at
http://www.accessmvp.com/djsteele/Diff2Dates.html.

--
Duane Hookom
MS Access MVP

First of all, I'd like to thank all.
I have this formula which works well

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date] & " "
&
[Arrival Time])

I get a values as double precision numbers like so:
01/01/2005 13:00 01/02/2005 14:05 "1.04513888889051"
My question:
I want to format as: X day X hours X minutes? Not, the decimal equivalent.
Any thoughts, thanks again.

 

[Duane Hookom]

You could use a complex expression and then create another complex
expression elsewhere and maybe again in another report. Or, you could copy
and paste the code into a module and keep your expressions very simple.

--
Duane Hookom
MS Access MVP
--

No disrespect to you, but can't I just use the format function without
writing all this code?

Doug Steele has a nice function for doing this at
http://www.accessmvp.com/djsteele/Diff2Dates.html.

--
Duane Hookom
MS Access MVP

First of all, I'd like to thank all.
I have this formula which works well

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date] & "
"
&
[Arrival Time])

I get a values as double precision numbers like so:
01/01/2005 13:00 01/02/2005 14:05 "1.04513888889051"
My question:
I want to format as: X day X hours X minutes? Not, the decimal
equivalent.
Any thoughts, thanks again.

 

[Guest]

ok, so I copy this code in the module section and then in my report just add
the expression to the text box correct?

You could use a complex expression and then create another complex
expression elsewhere and maybe again in another report. Or, you could copy
and paste the code into a module and keep your expressions very simple.

--
Duane Hookom
MS Access MVP
--

No disrespect to you, but can't I just use the format function without
writing all this code?

Doug Steele has a nice function for doing this at
http://www.accessmvp.com/djsteele/Diff2Dates.html.

--
Duane Hookom
MS Access MVP


First of all, I'd like to thank all.
I have this formula which works well

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date] & "
"
&
[Arrival Time])

I get a values as double precision numbers like so:
01/01/2005 13:00 01/02/2005 14:05 "1.04513888889051"
My question:
I want to format as: X day X hours X minutes? Not, the decimal
equivalent.
Any thoughts, thanks again.

 

[Duane Hookom]

Copy the code into a general module and save the module with a name like
"modDateTimeCalcs". You can then use the function like you would use any
built-in function in Access.

--
Duane Hookom
MS Access MVP
--

ok, so I copy this code in the module section and then in my report just
add
the expression to the text box correct?

You could use a complex expression and then create another complex
expression elsewhere and maybe again in another report. Or, you could
copy
and paste the code into a module and keep your expressions very simple.

--
Duane Hookom
MS Access MVP
--

No disrespect to you, but can't I just use the format function without
writing all this code?

:

Doug Steele has a nice function for doing this at
http://www.accessmvp.com/djsteele/Diff2Dates.html.

--
Duane Hookom
MS Access MVP


First of all, I'd like to thank all.
I have this formula which works well

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date]
& "
"
&
[Arrival Time])

I get a values as double precision numbers like so:
01/01/2005 13:00 01/02/2005 14:05 "1.04513888889051"
My question:
I want to format as: X day X hours X minutes? Not, the decimal
equivalent.
Any thoughts, thanks again.

 

[Guest]

Just one more question, if you don't mind.

I put this in my report and it worked fine, thanks:
=Diff2Dates("hns",#1/26/2002 1:23:01 PM#,#1/26/2002 8:10:34 PM#)

Now, how do I replace the old calucation into this new one Using the top
syntax

CDate([Delivery Date] & " " & [Delivery Time])-CDate([Arrival Date] & " " &
[Arrival Time])

Delivery Date & Arrival Date="Date Format"
Delivery Time & Arrival Time="Military Time Format"

Would it look like this:

=Diff2Dates("hns",[Delivery Date] & " " & [Delivery Time]), ([Arrival Date]
& " " &
[Arrival Time])

Thanks again

 

[Duane Hookom]

You should be able to just add the time to the date:
=Diff2Dates("hns",[Delivery Date] + [Delivery Time], [Arrival Date]+
[Arrival Time])