Извинения, если это кажется запутанным .. Я пытаюсь найти дату начала ровно через 252 рабочих дня с сегодняшнего дня (Sys.Date ()) .. Это почти в некотором смысле обратная функция "NETWORKDAYS".
Входные данные будут включать Networkdays = 252, сегодняшнюю дату и список праздничных дней. Я попытался использовать эту функцию сетевых дней, которую я обнаружил при переполнении стека. Конечной целью является извлечение даты начала. Большое спасибо!
networkdays <- function(start, end, holidays)
{
dates <- seq(as.Date(start), as.Date(end), by="day")
if(missing(holidays))holidays <- 0 else holidays <- length(holidays)
sum(as.numeric(format(dates, "%w") > 1)) - holidays
}
networkdays()