如何将十进制转换为POSIX时间

时间:2013-01-23 15:50:03

标签: r time decimal

我使用函数from here计算日出和日落,然后返回:

         sunrise           sunset
6.49055593325792 18.2873900837081

我正在努力(尝试使用strftimePOSIXctas.Date功能)将其转换为实时,但到目前为止还没有成功。

与往常一样,我们非常感谢任何建议。

2 个答案:

答案 0 :(得分:13)

@ Arun的战略有效,但可能更容易做到:

x <- c(6.49055593325792, 18.2873900837081)
today<-as.POSIXct('2012-01-23 00:00:00 EST')
today + (3600*x)

# "2012-01-23 06:29:26 EST" "2012-01-23 18:17:14 EST"

这也会让你获得秒数。

答案 1 :(得分:5)

首先将十进制表示转换为小时和分钟(如果我理解正确的话)

x <- c(6.49055593325792, 18.2873900837081)
# if 6.49 equals 6.49 hours, then do this.
x.m <- paste(floor(x), round((x-floor(x))*60), sep=":")

> x.m
# [1] "6:29"  "18:17"

> strptime(x.m, format="%H:%M")    
# [1] "2013-01-23 06:29:00" "2013-01-23 18:17:00"