View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default Help with Time Calculations

Hi
format your target cell with the custom format
[hh]:mm

--
Regards
Frank Kabel
Frankfurt, Germany


Don wrote:
On my worksheet, my user is entering start and stop times for
employees and then in a separate cell, displaying the hours worked. I
have been using the hour(b1-a1)+hour(d1-c1), etc. cell functions to
calculate the hours. But now, the times are changing and I would like
to use the code to calculate the hours. The below is what I have, but
it doesn't calculate the hours correctly......I've used 7:30am and
4pm in cells a1 thru j1......The result it gives me is 18:30 and it
should be 40:00......What am I doing wrong?

Dim daystart, dayend, dailyhrs, weekhrs As Date
For i = 0 To 6
daystart = ActiveCell.Value
ActiveCell.Cells(1, 2).Activate
dayend = ActiveCell.Value
dailyhrs = dayend - daystart
weekhrs = weekhrs + dailyhrs
ActiveCell.Cells(1, 2).Activate
Next i
Range("a3").Select
ActiveCell.FormulaR1C1 = weekhrs

Thanks,
Don