?
Solved

GET TOTAL TIME

Posted on 2004-04-16
5
Medium Priority
?
182 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 800 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

Independent Software Vendors: 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 In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
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…
Suggested Courses
Course of the Month12 days, 7 hours left to enroll

777 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