Timespan Starting With Active Cell Value Using Input Box Value

[Smd747]

First hiccup with the new code. It does not account for overnight . When I click active cell 6:00 PM and ending cell 2:30 AM it give me 16 hours
Do I need to use the mod function??

[Rick Rothstein]

First hiccup with the new code. It does not account for overnight . When I click active cell 6:00 PM and ending cell 2:30 AM it give me 16 hours

Try it like this and let me know if it works for you or not...

Sub GetStartEndTime2()
  Dim StartTime As Date, EndTime As Date, BreakTime As Long, TimeDiff As String
  StartTime = ActiveCell.Value
  EndTime = Application.InputBox("Select the cell with the ending time...", Type:=8)
  BreakTime = 60 'Not sure how you plane to calculate 30 or 60, but it goes here
  TimeDiff = Format(24 + EndTime - StartTime - TimeSerial(0, BreakTime, 0), _
             "h"" hours and ""m"" minutes which excludes a " & BreakTime & " minute break.""")
  MsgBox "Start time: " & StartTime & vbLf & "End time: " & EndTime & vbLf & "Time difference: " & TimeDiff
End Sub

[Smd747]

Thanks Rick, that fixed the time calculation. It is working beautifully now, what a time saver. I have a ribbon button for 30 minute 1/2 hour break and another for 60 minutes 1-hour break

Thanks for the help and learning experience in VBA

[Rick Rothstein]

Thanks Rick, that fixed the time calculation. It is working beautifully now, what a time saver. I have a ribbon button for 30 minute 1/2 hour break and another for 60 minutes 1-hour break

Great!

Thanks for the help and learning experience in VBA

You are quite welcome... I am glad I was able to be of assistance to you.