R语言日期差出现小数：是Bug还是特性？如何获取准确天数差？

问题原因 #

你遇到的小数偏差确实和POSIX时间的秒数机制有关，核心是夏令时（DST）或时区切换：部分日期所在的自然日并非标准的86400秒（24小时），比如夏令时切换当天，会出现少1小时（82800秒）或多1小时（90000秒）的情况。你例子中的-0.04167刚好是-1/24（对应3600秒），说明计算区间内存在夏令时切换，导致总秒数差除以86400后出现非整数偏差。

推荐解决方法 #

方法1：使用UTC时区创建POSIXct（最稳妥） #

UTC时区没有夏令时切换，所有自然日都是标准的86400秒，能从根源避免偏差：

mydates <- c(as.POSIXct("2010-03-29", tz="UTC"), as.POSIXct("2000-01-21", tz="UTC"))
as.numeric(mydates[1] - mydates[2])  # 结果为精确的3720

方法2：用difftime明确指定单位并取整 #

如果必须保留原时区，可通过difftime直接按天计算，再转整数或四舍五入：

# 直接取整（截断小数部分）
as.integer(difftime(mydates[1], mydates[2], units = "days"))

# 四舍五入（适合偏差极小的场景）
round(as.numeric(difftime(mydates[1], mydates[2], units = "days")))

方法3：使用lubridate包简化计算 #

lubridate是R中处理日期时间的专用包，语法更直观，能精准计算天数差：

library(lubridate)
# 创建时间区间
date_interval <- interval(mydates[2], mydates[1])
# 提取天数
time_length(date_interval, unit = "day")

关于“添加小值后转整数”的疑问 #

不推荐这种方法，因为偏差的大小并非固定（可能因时区、切换事件不同出现其他小数），硬加小值容易引入新的误差。更可靠的方式是用上述针对性方法，从根源规避或精确计算天数差。

内容的提问来源于stack exchange，提问作者ivo Welch