# Determine how long someting runs

I have a vb6 Keno game that runs unattended 4000 times an stops
How can i determine the length of time it runs ?
###### Who is Participating?

Older than dirtCommented:
No. You'll need to do something like this

``````Dim mtimStartTime As Date
Dim mtimEndTime As Date
mtimStartTime = Now
mtimEndTime = Now
lblTime = DateDiff("m", mtimEndTime, mtimStartTime)
``````

which will give the number of minutes. You could also do some math to convert it to hours and minutes before displaying in the label.
0

Older than dirtCommented:
Please see my article on the subject.
0

Author Commented:
Thanks Marty, but i think that's a little overkill
Don't need that much accuracy
example :
3hours, 20 minutes is close enough
0

Author Commented:
would this be accurate

Dim StartTime as date ?
dim EndTime as date ?
0

Older than dirtCommented:
It depends on the desired accuracy you desire but the methods I describe are much more accurate.
0

Older than dirtCommented:
Thanks Marty, but i think that's a little overkill
Don't need that much accuracy
example :
3hours, 20 minutes is close enough
The  StartTime and End Time is all you need.
0

Author Commented:
Would this work ?
Dim mtimStartTime as date
Dim mtimEndTime as date
mtimStartTime = Now
mtimEndTime = Now
lblTime = mtimEndTime - mtimStartTime
0

Author Commented:
Thanks just what i needed
0

Older than dirtCommented:
You're welcome and I'm glad I was able to help.

In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2014
0

Author Commented:
Doing Some testing and i always get 0 minutes

Debug.Print mtimStartTime = 1/12/2015 6:40:06 AM
Debug.Print mtimEndTime = 1/12/2015 6:41:02 AM
lblTime = DateDiff("m", mtimEndTime, mtimStartTime) & " minutes"
lblTime displays 0 Minutes
What am i doing wrong ?
0

Older than dirtCommented:
It shows 0 because your time is less than one minute and VB truncates the results. If you are interested in under-one-minute accuracy you'll need to do "s" (seconds) ratherthan "m".
0

Author Commented:
I was only looking at the minutes so i ran more tests and always get 0

lblTime = DateDiff("m", mtimEndTime, mtimStartTime)
Debug.Print mtimStartTime = 1/12/2015 9:51:24 AM
Debug.Print mtimEndTime = 1/12/2015 10:08:28 AM
lblTime displays 0 Minutes
0

Older than dirtCommented:
My apologies. "m" is month and "n" is minutes. The dates were also backward so

lblTime = DateDiff("n", mtimStartTime, mtimEndTime)
0

Author Commented:
Thanks, that works
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.