R中有没有和Excel计算时长的“24”功能等价的实现？

核心逻辑 #

和Excel的24 + 结束时间 - 开始时间逻辑完全等价的R实现可以通过取模24的运算完成，不需要额外判断是否跨零点，两类场景都能直接返回正确结果。

具体实现步骤 #

以你给出的两组时间为例：

• 第一组：开始时间22:00，结束时间04:00（次日）
• 第二组：开始时间04:00，结束时间08:00

方法1：基础R实现（无需安装额外包） #

# 构造示例数据
time_df <- data.frame(
  start = c("22:00", "04:00"),
  end = c("04:00", "08:00")
)

# 转为时间格式后提取小时数
start_hour <- as.POSIXlt(time_df$start, format = "%H:%M")$hour
end_hour <- as.POSIXlt(time_df$end, format = "%H:%M")$hour

# 计算时间差后模24，得到和Excel逻辑完全一致的结果
time_df$duration_h <- (end_hour - start_hour) %% 24

运行后time_df$duration_h的输出结果为6 4，完全符合预期。

方法2：带分钟精度的通用实现 #

如果时间带有分钟，需要精确到分钟级的时长，可以用以下通用函数实现：

calc_duration <- function(start_time, end_time) {
  start_sec <- as.POSIXct(start_time, format = "%H:%M")
  end_sec <- as.POSIXct(end_time, format = "%H:%M")
  # 时间差取模86400（一天的秒数）后转换为小时单位
  as.numeric(difftime(end_sec, start_sec, units = "hours")) %% 24
}

# 测试用例
calc_duration("22:00", "04:00") # 返回6
calc_duration("04:00", "08:00") # 返回4
calc_duration("22:30", "04:15") # 返回5.75，即5小时45分钟

补充说明 #

duplicate()是用于判断向量元素是否重复的函数，并不具备时间差计算能力，此前第二组返回正确结果属于巧合，建议替换为上述正式的时间差计算方法。

内容的提问来源于stack exchange，提问作者Sheila Dunbar