R语言中difftime函数计算时间差疑似存在Bug

这是个很典型的时区夏令时导致的问题，不是difftime函数的bug，咱们一步步理清楚：

问题根源：时区的夏令时规则干扰了计算 #

你的代码里用as.POSIXct时没指定时区，R会自动用系统默认的本地时区（比如北美、澳洲、欧洲的很多时区都实行夏令时）。而Excel、谷歌表格这类工具默认是把时间当成无时区的本地时间，完全不考虑夏令时的时钟调整，所以会直接按“天数×24”给出结果。

拿你的例子来说：7月18日到10月30日总共是104天，104×24=2496小时，这是纯粹按日期差计算的结果。但R的POSIXct类型会严格遵循时区的夏令时规则——如果你的系统时区在这个时间段内有一次夏令时切换（比如澳洲东部时区2005年10月2日进入夏令时，时钟拨快1小时），就会导致时间差计算多出来1小时，最终得到2497小时。

快速解决：用UTC时区计算 #

UTC时区没有夏令时，时间是绝对线性的，只要在as.POSIXct里指定tz="UTC"，就能得到和Excel一致的结果：

t1 <- as.POSIXct("7/18/2005 8:30:00", format = "%m/%d/%Y %H:%M:%S", tz = "UTC") 
t2 <- as.POSIXct("10/30/2005 8:30:00", format = "%m/%d/%Y %H:%M:%S", tz = "UTC") 
difftime(t2,t1,units = "hours") 

运行这段代码会返回你预期的：

Time difference of 2496 hours

额外验证：检查你的时区设置 #

你可以用下面的代码看看当前系统默认时区，以及时间对象的时区属性，确认是不是夏令时在搞鬼：

# 查看系统默认时区
Sys.timezone()
# 查看t1的时区属性
attr(t1, "tzone")

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