Solved

GET TOTAL TIME

Posted on 2004-04-16
5
181 Views
Last Modified: 2010-05-02
hey guys i juss wanna ask ur help getting the total time of my project... in my table, i have datetime_in, datetime_out, total_time...

e.g
datetime_in= 04/17/04 10:00:00 AM
datetime_out=04/23/04 10:00:00 PM
total_time=?

thanks
0
Comment
Question by:zack_online
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
5 Comments
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 10848056
Hi zack_online,

Total_Time = DateTime_Out - DateTime_In
(all three should be declared as Date type)
Cheers!
0
 

Author Comment

by:zack_online
ID: 10848241
tnx 4 d reply... how do i get the result in vb? can u gimme a simple sample of this...

tnx again
0
 
LVL 1

Expert Comment

by:MortimerCat
ID: 10848397
Dim datetime_in As Date
Dim datetime_out As Date
Dim total_time As Long

datetime_in = #4/17/2004 10:00:00 AM#
datetime_out = #4/23/2004 10:00:00 PM#

total_time = DateDiff("d", datetime_in, datetime_out)

MsgBox total_time

The first parameter "d" indicates how accurate you want the answer.  "d" for days "h" for hours See Help for other settings.

The program above shows 6 ie 6 days.

"h" gives 156 hours.  This will need further manipulation, ie dividing by 24, to get Days &  Hours

See also Datepart & Dateadd
0
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 200 total points
ID: 10848416
I'm having trouble understanding you, but I hope this is what you need. It also demonstrates the DateDiff function which shows the elapsed time in particular units, seconds in this case.

Private Sub Command1_Click()
    Dim DateTime_In As Date
    Dim DateTime_Out As Date
    Dim Total_Time As Date
   
    DateTime_In = Now()
    MsgBox "Hello Zack"
   
    DateTime_Out = Now()
    Total_Time = DateTime_Out - DateTime_In
    MsgBox "Time to respond was " & Total_Time & " or " & DateDiff("s", DateTime_In, DateTime_Out) & " seconds"
End Sub


0
 

Author Comment

by:zack_online
ID: 10856164
tnx for answering my Q.
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

724 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question