r - 将日期字符串 "yyyy-mm-dd"转换为自纪元以来的毫秒数

Question

我有一些数字表示自纪元以来的毫秒数，00:00:00 协调世界时 (UTC)，星期四，1970 年 1 月 1 日

    1365368400000,
    1365973200000,
    1366578000000

我正在将它们转换为日期格式:

    as.Date(as.POSIXct(my_dates/1000, origin="1970-01-01", tz="GMT"))

回答:

 [1] "2013-04-07" "2013-04-14" "2013-04-21"

如何将这些字符串转换回纪元以来的毫秒数？

Answer 1

这是您的 javascript 日期

x <- c(1365368400000, 1365973200000, 1366578000000)

除以一天中的毫秒数，您可以更轻松地将它们转换为 R 日期。

y <- as.Date(x / 86400000, origin = "1970-01-01")

要转换回来，只需转换为数字并乘以这个数字。

z <- as.numeric(y) * 86400000

最后，检查答案是否与您一开始的答案相同。

stopifnot(identical(x, z))

根据评论，您有时可能会遇到数字舍入错误，导致 x 和 z 不相同。对于这样的数值比较，请使用:

library(testthat)
expect_equal(x, z)