Count Work Days Between Two Dates
Returns the number of work days between two dates taking into account the provided holiday dates.
CountWorkDays(from, to, holiday = NULL, nonworkdays = c("Sat", "Sun"))from |
the initial dates |
to |
the final dates |
holiday |
a vector with dates to be excluded. |
nonworkdays |
a character vector containing the abbreviations of the weekdays (as in |
The function is vectorised so that multiple initial and final dates can be supplied. The dates are recycled, if their number are different
an integer vector
Andri Signorell <andri@signorell.net>
weekdays, Date Functions
from <- as.Date("2019-01-01") + rep(0, 10)
to <- as.Date("2020-01-15") + seq(0, 9)
CountWorkDays(from, to)
x <- seq(from[1], from[1]+11, "days")
data.frame(
date = x,
day = Format(x, fmt="ddd"))
CountWorkDays(from = min(x), to = max(x), holiday = c("2019-01-06", "2019-01-07"))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.