R/NumberOfDays.R

Defines functions NumberOfDays

NumberOfDays <- function(date) {

  m <- format(date, format="%m")
  while (format(date, format="%m") == m)
  {
    date <- date + 1
  }
  nday <- as.integer(format(date - 1, format="%d"))
  return(nday)
}

Try the rSQM package in your browser

Any scripts or data that you put into this service are public.

rSQM documentation built on May 2, 2019, 4:14 a.m.