如何計算 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