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
|