kkobayashi #7538(2008/09/01 11:11 GMT) [ R ] Rating0/0=0.00
フォーマットが任意だと楽ちんでいいですね。 > DateEx("2008-09-02 00:00:00 JST", 30) [1] "2008-09-02 00:00:30 JST" > DateEx("2008-09-02 00:00:00 JST", -30) [1] "2008-09-01 23:59:30 JST"
1 2 3
DateEx <- function(d1=Sys.time(), d2=0){ as.POSIXct(d1) + d2 }
Rating0/0=0.00-0+
[ reply ]
kkobayashi
#7538()
[
R
]
Rating0/0=0.00
フォーマットが任意だと楽ちんでいいですね。 > DateEx("2008-09-02 00:00:00 JST", 30) [1] "2008-09-02 00:00:30 JST" > DateEx("2008-09-02 00:00:00 JST", -30) [1] "2008-09-01 23:59:30 JST"DateEx <- function(d1=Sys.time(), d2=0){ as.POSIXct(d1) + d2 }Rating0/0=0.00-0+
[ reply ]