如何将excel的小时内编码转换为R中的小时？

Question

我有一个小时变量作为excel内部编码存储在R中，参见(https://www.ablebits.com/office-addins-blog/2015/06/23/excel-time-format-now-time-functions/)，例如，0.4305556相当于上午10:20:00如何转换0.4305556到10:20上午在R。之后，我需要减时间，以找到时间差异。

Answer 1

您可以使用hms

library(hms)

hms(days = 0.4305556)
#> 10:20:00.00384

减去两个hms对象，返回一个时间差以秒为单位的difftime对象：

hms(days = 0.5) - hms(days = 0.25)
#> Time difference of 21600 secs

或者，要获得不同单元中的时间差，请使用difftime函数：

difftime(hms(days = 0.5), hms(days = 0.25), units = "hours")
#> Time difference of 6 hours