确定日期/时间间隔是否跨越R中的某一天的正午

# 示例代码
start_datetime <- as.POSIXct("2022-01-01 10:00:00")  # 起始日期时间
end_datetime <- as.POSIXct("2022-01-02 14:00:00")    # 结束日期时间

start_date <- format(start_datetime, "%Y-%m-%d")     # 起始日期
end_date <- format(end_datetime, "%Y-%m-%d")         # 结束日期

start_time <- format(start_datetime, "%H:%M:%S")     # 起始时间
end_time <- format(end_datetime, "%H:%M:%S")         # 结束时间

if (start_date == end_date) {
  if (start_time < "12:00:00" && end_time > "12:00:00") {
    print("日期/时间间隔跨越了某一天的正午")
  } else {
    print("日期/时间间隔未跨越某一天的正午")
  }
} else {
  print("日期/时间间隔未跨越某一天的正午")
}