Calculating absence duration for employee's working time

Question

I ran into a problem in R trying to calculate employee\'s actual working time where I subtract the absence duration from the working time.

For one scheduled day there