如何计算 Excel 或 R 中两个日期之间的处理时间或响应时间？

Question

我在一家提供医生预约平台的公司工作。 我们通常处理预订。 预订是针对多个诊所的。 对于每个预订，我们都有一个创建时间和处理时间。 我想计算响应时间。 这应该是处理和创建但在诊所时间内的区别。

例如，在 2020 年 8 月 7 日（星期五）上午 11 点进行预约，并在 2020 年 8 月 10 日（星期一）下午 5 点进行处理，诊所时间内的响应时间应为 88,200 秒或 24.5 小时。 我附上了诊所的工作时间。 我必须为数百家有自己的时间表的诊所这样做。 我非常感谢您的帮助。

诊所时间表

Clinic_name <- c("ABC","ABC","ABC","ABC","ABC","ABC","ABC")
DOW <- c(1:7)
day <- c("Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")
Starting_Time_1 <- c("8:30:00","8:30:00","8:30:00","8:30:00",NA,"8:30:00","8:30:00")
Ending_Time_1 <- c("12:00:00","12:00:00","12:00:00","12:00:00",NA,"12:00:00","12:00:00")
Starting_Time_2 <- c("16:30:00","16:30:00","16:30:00","16:30:00","16:30:00","16:30:00","16:30:00")
Ending_Time_2 <- c("21:00:00","21:00:00","21:00:00","21:00:00","21:00:00","21:00:00","21:00:00")

abc_timing <- cbind(Clinic_name,DOW,day,Starting_Time_1,Ending_Time_1,Starting_Time_2,Ending_Time_2)

abc_timing <- data.frame(abc_timing)

Answer 1

library(tidyverse)
library(lubridate)

df = tibble(
  booking = c("7th Aug 2020(Friday) at 11 am", "8th Aug 2020(Friday) at 13 am"),
  handled = c("10th Aug 2020(Monday) at 5 PM", "9th Aug 2020(Friday) at 06 am")
) %>% 
  mutate(booking = dmy_h(booking),
         handled = dmy_h(handled))


df %>% 
  mutate(gap = (handled - booking) / dhours(1))

# # A tibble: 2 x 3
#   booking             handled               gap
#   <dttm>              <dttm>              <dbl>
# 1 2020-08-07 11:00:00 2020-08-10 05:00:00    66
# 2 2020-08-08 13:00:00 2020-08-09 06:00:00    17