R日期到基于Excel的数字

Question

我知道我可以通过以下方式从基于 Excel 的数字(自 1899 年 12 月 30 日以来的天数)中获取日期:

as.Date(41000, origin = "1899-12-30")

这会给我“2012-04-01”。然而我想要相反的东西。作为用户，我想输入一个日期作为字符串并获取自“1899-12-30”以来的天数。

沿线的东西

as.integer(as.Date('2014-03-01', origin="1899-12-30"))

我希望结果是 41000，而不是自 1970-01-01 以来基于 R 的天数，即 15431。

也许这很愚蠢，因为我意识到我可以通过编写如下内容手动添加日期:

as.integer(as.Date('2012-04-01')) + 25569

我只是想知道是否有一个函数可以做到这一点？

Answer 1

我想你想要 difftime 如下:

difftime(as.Date('2012-04-01'), as.Date("1899-12-30"))

## Time difference of 41000 days