r - 自 1960 年 1 月 1 日起将日期时间字符串转换为毫秒的 double 值

Question

我从一个相关问题(见下文)中找到了如何从 R 中自 1960 年 1 月以来的毫秒转换 Stata 日期时间格式:

as.POSIXct(874022400000/1000, origin="1960-01-01")

我希望在 R 中做相反的事情:即给定一个以字符串表示的日期时间，了解如何将日期时间值返回为自 1960 年 1 月 1 日 00:00:00 以来的毫秒数。任何建议将不胜感激。

Answer 1

使用 as.numeric 将日期时间强制转换为自纪元以来的秒数。由于 R 使用 1970 作为其原点，因此您必须另外考虑 1960-1970 的偏移量。最后，当然，要注意秒到毫秒的转换。

> mydate = as.POSIXct(874022400000/1000, origin="1960-01-01")
> 1000 * (as.numeric(mydate) - as.numeric(as.POSIXct('1960-01-01')))
[1] 874022400000