I need help with Time arithmatic in VB6 3

[elmorro]

Hi all,
I have a program that gathers an employees Start and End time spent working on a given order. I need to help finding the duration in minutes.
Here is an example of the data gathered.
Start Time: 10:30:00 AM
End Time: 12:30:00 PM
The duration should be 120 minutes.
How can I do this?


Thanks in advance,
elmorro

 

[TipGiver]

Have a look at the DateDiff function.

 

[SkipVought]

Hi,

Date/Time is in units of DAYS.

So take the difference and you get a portion of a day. Convert days to minutes .

tStart = #10:30:00 AM#
tEnd = #12:30:00 PM#

MsgBox (tEnd - tStart) * 24 * 60

Skip,
[sub]
[red][/red]
[/sub]

 

[elmorro]

Thanks TipGiver and SkipVought for your quick response.

elmorro

 

[Andrzejek]

TipGiver's idea does work in minutes:

Dim strStart As String
Dim strEnd As String

strStart = "02/09/2007 10:30:00 AM"
strEnd = "02/09/2007 12:30:00 PM"

MsgBox DateDiff("n", strStart, strEnd)

[blue]120 minutes[/blue]

Have fun.

---- Andy

 

[TipGiver]

It can take the following values:

yyyy - Year
q - Quarter
m - Month
y - Day of year
d - Day
w - Weekday
ww - Week of year
h - Hour
n - Minute
s - Second

You can also use (not pretty sure) instead of the above the 'DateInterval.{something}'

 

[elmorro]

Thanks Adrzejek and TipGiver. The code works great!

elmorro