R-将浮点数转换为日期

Question

想知道你是否能告诉我我在R 4.0.2版本中遇到的一个悬而未决的问题。我正在将数据从给定共享点中的excel文件移动到本地数据库。面临的问题是，当使用readxl读取文件时，原始文件中作为日期(datetime(的列将作为浮点数返回。我需要把号码改回最新时间。

使用的库：

library(readxl)
library(odbc)
library(lubridate)

编号

44047.8149884259
44055.2403009259
44048.504537037

预期结果

8/4/2020  7:33:35 PM
8/12/2020  5:46:02 AM
8/5/2020  12:06:32 PM

我尝试过使用不同格式的as_date和as.POSIXct，但似乎没有答案。

提前感谢您的友好投入。

Answer 1

我们可以使用

format(as.POSIXct(v1 * 60 *60 * 24, origin = '1899-12-30', tz = 'UTC'),
'%m/%d/%Y %I:%M:%S %p')
#[1] "08/04/2020 07:33:34 pm" "08/12/2020 05:46:01 am" "08/05/2020 12:06:31 pm"

数据

v1 <- c(44047.8149884259, 44055.2403009259, 44048.504537037)