r - 将十进制小时转换为 HH:MM:SS

Question

我正在寻找一种将十进制小时数转换为 HH:MM:SS 的方法

例如，作为输入：

4.927778 hours

期望的输出：

04:55:40

Answer 1

您可以尝试以下方法

dh <- 4.927778
strftime(as.POSIXct(dh * 60 * 60, origin = Sys.Date(), tz = "GMT"), format = "%H:%M:%S")
## [1] "04:55:40"

Answer 2

您应该能够了解您需要做什么 -

a <- "4.927778 hours"
a <- as.numeric(gsub(x = a,pattern = " hours", replacement = ""))

h <- a%/% 1
m <- ((a%% 1)*60) %/% 1
s <- round((((a%% 1)*60) %% 1)*60,0)
paste(h,m,s,sep = ":")
#[1] "4:55:40"

Answer 3

另一种解决方案是将其转换为日期/时间类，然后以适当的方式对其进行格式化。

format(ISOdatetime(1900,1,1,0,0,0, tz="GMT") + 
       as.difftime(4.927778, unit="hours"), "%H:%M:%S")

Answer 4

sprintf()当您将小时数、分钟数和秒数设为整数时，您可以根据需要格式化输出。这些可以使用模 ( %%) 和floor()/来计算round()。parse_number()使用readr 包中的函数可以很好地从字符串中提取小时数：

library(readr) 
input <- "4.927778 hours"
hrs <- parse_number(input)
hours <- floor(hrs)
minutes <- floor((hrs %% 1) * 60)
seconds <- round((((hrs %% 1) * 60) %% 1) * 60)

sprintf("%02d:%02d:%02d", hours, minutes, seconds)

与使用strftime().

Answer 5

这也适用于负值。

convertHours<-function(hours){ timeoffset<-as.numeric(as.POSIXct(format(Sys.time(), tz = "GMT")) - as.POSIXct(format(Sys.time(), tz = ""))) hoursMinutes<-ifelse(hours<0,paste0("-",strftime(as.POSIXct((abs(hours)+timeoffset) * 60 * 60, origin = Sys.Date(), tz =""), format = "%H:%M")), strftime(as.POSIXct((hours+timeoffset) * 60 * 60, origin = Sys.Date(), tz =""), format = "%H:%M")) }

h<-1.33

hhmm<-convertHours(h)

嗯 [1] “01:19”

h<--1.33

hhmm<-convertHours(h)

嗯 [1] “-01:19”

Answer 6

如果您使用的是 .net/C#，则可以使用一点日期数学。

var when = DateTime.UtcNow; // or any time of your choice
var later = when.AddHours(4.927778);
var span = later - when;
Console.WriteLine(span)

我现在看到了 R 标志。也许这会给你一个提示，在哪里寻找类似的东西。我不知道R。