Calculate time in excel

JoeyGaspard

Board Regular
Joined
Jul 22, 2019
Messages
147
I get a text report from our time keeping system that i dump into excel through a data connection and I need to calculate the total hours for a day, the problem is, some employees clock in and out for lunch, so there could be up to 4 punches per day per employee. I am trying to automate it so that it will subtract the clockin time from the lunch clock out time, and the lunch clock in from the end of the day clockout to give me total hours worked for the day. Example, if I have these 4 times:
7.82
12.60
13.02
16.66
I need to subtract 7.82 from 12.60 and 13.02 from 16.62, and then add the two numbers together for the total for the day. I have no problem doing this if everyone clocked 4 punches a day, but some clock 2 times, and others 4, just depends on whether they leave for lunch. I get the data with a date and time stamp, is there a way to do this either with vba or a formula? I need excel to recognize whether there are 2 or 4 punches so it will know what to subtract from what? Any help is greatly appreciated! Here is an example of what the data looks like:


199992021-04-05 07:49:19.000CLARKLEAH07:49:19.000
199992021-04-05 12:36:11.000CLARKLEAH12:36:11.000
199992021-04-05 13:01:25.000CLARKLEAH13:01:25.000
199992021-04-05 16:39:43.000CLARKLEAH16:39:43.000
199992021-04-06 07:46:02.000CLARKLEAH07:46:02.000
199992021-04-06 12:30:33.000CLARKLEAH12:30:33.000
199992021-04-06 13:06:53.000CLARKLEAH13:06:53.000
199992021-04-06 16:46:06.000CLARKLEAH16:46:06.000
199992021-04-07 07:55:45.000CLARKLEAH07:55:45.000
199992021-04-07 11:38:46.000CLARKLEAH11:38:46.000
199992021-04-07 12:10:14.000CLARKLEAH12:10:14.000
199992021-04-07 16:30:03.000CLARKLEAH16:30:03.000
199992021-04-08 07:50:41.000CLARKLEAH07:50:41.000
199992021-04-08 16:34:03.000CLARKLEAH16:34:03.000
199992021-04-09 07:18:18.000CLARKLEAH07:18:18.000

I convert it 100 minute time also.
 

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.
VBA Code:
Sub do_it()

lr = Cells(Rows.Count, "A").End(xlUp).Row

For r = 1 To lr
Cells(r, "F") = Split(Cells(r, "B"), ".")(0) 'this will write the date into column F
Next r


For r = 1 To lr Step 2
If Cells(r, "G") = Cells(r + 1, "G") Then Cells(r, "G") = (Cells(r + 1, "E") - Cells(r, "E")) * 24 'this will write the hours into column G
Next r

End Sub
 
Upvote 0
VBA Code:
Sub do_it()

lr = Cells(Rows.Count, "A").End(xlUp).Row

For r = 1 To lr
Cells(r, "F") = Split(Cells(r, "B"), ".")(0) 'this will write the date into column F
Next r


For r = 1 To lr Step 2
If Cells(r, "G") = Cells(r + 1, "G") Then Cells(r, "G") = (Cells(r + 1, "E") - Cells(r, "E")) * 24 'this will write the hours into column G
Next r

End Sub
Thank you, but I am confused, does this add/subtract the time?
 
Upvote 0
VBA Code:
Sub do_it()

lr = Cells(Rows.Count, "A").End(xlUp).Row

For r = 1 To lr
Cells(r, "F") = Split(Cells(r, "B"), ".")(0) 'this will write the date into column F
Next r


For r = 1 To lr Step 2
If Cells(r, "G") = Cells(r + 1, "G") Then Cells(r, "G") = (Cells(r + 1, "E") - Cells(r, "E")) * 24 'this will write the hours into column G
Next r

End Sub
This is the results I get?

1618250405549.png
 
Upvote 0
Hi JoeyGaspard,

Some questions:
  1. I'll be using Excel 2016. If you update your Profile with your version then others may offer better solutions.
  2. The sample is for one Employee. May the list contain multiple Employees? If so then is the "19999" the Employee Number?
  3. Could it be that there are 3+ pairs of clockin/clockouts?
  4. Will the data always be in Clockin/Out Date and Time sequence?
  5. I don't understand "I convert it 100 minute time also" so could you explain further?
 
Upvote 0
Joey,
change
Cells(r, "F") = Split(Cells(r, "B"), ".")(0) 'this will write the date into column F

to

Cells(r, "F") = Split(Cells(r, "B"), " ")(0) 'this will write the date into column F
 
Upvote 0
Hi JoeyGaspard,

Some questions:
  1. I'll be using Excel 2016. If you update your Profile with your version then others may offer better solutions.
  2. The sample is for one Employee. May the list contain multiple Employees? If so then is the "19999" the Employee Number?
  3. Could it be that there are 3+ pairs of clockin/clockouts?
  4. Will the data always be in Clockin/Out Date and Time sequence?
  5. I don't understand "I convert it 100 minute time also" so could you explain further?
q1: I am using 2016 as well
q2: Thre are multiple employees, but each one has a different employee number (yes, the 19999 in the sample is the emp #)
q3: No, there will either be 2 or 4
q4: Yes, it will always be in that format
q5: We use the "100 Minute" or decimal time scale, for example, 15:05 would be converted to 15.08, 8:58 would be converted to 8.97.
 
Upvote 0
Joey,
change
Cells(r, "F") = Split(Cells(r, "B"), ".")(0) 'this will write the date into column F

to

Cells(r, "F") = Split(Cells(r, "B"), " ")(0) 'this will write the date into column F
Here are the results:
1618252651346.png


Here is the vba I have:

Sub do_it()

lr = Cells(Rows.Count, "A").End(xlUp).Row

For r = 1 To lr
Cells(r, "F") = Split(Cells(r, "B"), " ")(0) 'this will write the date into column F
Next r


For r = 1 To lr Step 2
If Cells(r, "G") = Cells(r + 1, "G") Then Cells(r, "G") = (Cells(r + 1, "E") - Cells(r, "E")) * 24 'this will write the hours into column G
Next r

End Sub
 
Upvote 0
what happened to the time in Column "E" you had it there in your first example?

if its not there, than add the second line below.

Cells(r, "F") = Split(Cells(r, "B"), " ")(0) 'this will write the date into column F
Cells(r, "E") = Split(Cells(r, "B"), " ")(1) 'this will write the Time to column E
 
Upvote 0
what happened to the time in Column "E" you had it there in your first example?

if its not there, than add the second lien below.

Cells(r, "F") = Split(Cells(r, "B"), " ")(0) 'this will write the date into column F
Cells(r, "E") = Split(Cells(r, "B"), " ")(1) 'this will write the Time to column E
I apologize! Here is what happens when the time is in column E
1618253380960.png

And this is what debug shows:
1618253421157.png
 
Upvote 0

Forum statistics

Threads
1,213,521
Messages
6,114,104
Members
448,548
Latest member
harryls

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top