Time... horrible horrible time...

[joehouse]

Okay... I've put down my bag of paintchips and I've promised not to eat anymore of them [at least for today]. So know I'm going to ask since I'm having a catastrophic brain fart.

I cant figure out how to get Acces [and I swear I can remember doing this before] to take a start time and subtract it from an end time to get s time spent for a project...

the fields are all in the same table.

TIn
TOut
TTotal

They're all in short time format [ie military time]. The only way I can think of it is to make a module that'll do it and then have TTotal reference the MTTotal [module].

But here's where the brain fart comes in... I cant remember the way I need to set up the module. Haven't touched VB in tooooooooooooooooooo long.

[Joel Egghead]

Im not sure if you are using .net or vb6 but, in vb.net it’s a built in to the Date and time datatype. Other words a function like this would work:
Private Sub Time()
Dim StartTime As Date
Dim EndTime As Date
Dim TotalHours, TotalMin As Integer


StartTime = "11/22/05 17:00:00"
EndTime = "11/23/05 01:36:00"


If StartTime.Hour > EndTime.Hour Then
'IF Time.hour goes past 23:59 to next day 24 hours - start hour + Time spent in new day
TotalHours = (24 - StartTime.Hour) + EndTime.Hour
Else
TotalHours = EndTime.Hour - StartTime.Hour
End If

If StartTime.Minute > EndTime.Minute Then
'IF Time.minute goes past 60 min – start min + End Min
TotalMin = (60 - StartTime.Minute) + EndTime.Minute
'Since we already added the hour in the hour section we have to delete it here because it really wasn’t a full hour
TotalHours = TotalHours - 1
Else
TotalMin = EndTime.Minute - StartTime.Minute
End If
txtFullTime.Text = TotalHours & "hrs. & " & TotalMin & "min."
End Sub

Now you can add more to this to cover milliseconds as well but this would work for hours and minutes it also holds your days of the year.
Hope this helps
It’s been awhile since I programmed in vb6 but I’m thinking they to had the same date datatype.