从R中的hms减去1小时，且不产生负值

Question

如何从hms中减去一个小时?例如

hms("01:00:00")

我想把它转换成00:00:00

更新:例如，从00:45:00减去一个小时，结果应该是"01:45:00";且无负值

Answer 1

我们可以使用

library(lubridate)
out <- hms("01:00:00")
out@hour <- out@hour - 1
sprintf("%02d:%02d:%02d", out@hour, out@minute, seconds(out))
[1] "00:00:00"

---

我们可以用as.ITime减去3600

as.ITime("01:00:00") - 3600
[1] "00:00:00"

Answer 2

hms::hms(lubridate::hms("01:00:00") - lubridate::hours(1))
00:00:00

Answer 3

成功了:

strptime("00:45:00", format = "%H:%M:%S") - 3600