plusMonth.R

# plusMonth(time, diff)
#   POSIXltに変換可能な型で与えられた日付を表すx に対して、diff月増減させた日付をPOSIXctで返す。
#   月だけを増減させ、日付はそのままにするので、検査スケジュールなどを扱うのに適しているか。
#   diffは負でもよい。

plusMonth <- function(x, diff=1) { # diff を省略すると1としたことになる
	cur <- as.POSIXlt(x)
	mon <- cur$mon
  cur$year <- cur$year + (mon+diff)%/% 12 
	cur$mon <- (mon+diff) %% 12 
	return(as.POSIXct(cur))
}