R/time365fromDate.R

In aparamon/cmrutils: Misc Functions of the Center for Mathematical Research

Defines functions time365fromDate

Documented in time365fromDate

time365fromDate <- function(x)
{
  myd <- month.day.year(x)
  cycle <- match(with(myd, paste(month, day)),
                 with(.time365md, paste(month, day)))
  return(myd$year + (cycle - 1)/365)
}