Рабочие дни

@Gypka[for]mozga · Регистрация: 19.06.2011

Студворк — интернет-сервис помощи студентам

есть формула =Рабдень(дата;кол-во)
но она расчитывает как то невнятно, только рабочие, а надо так, чтоб есть дата и цифра, вот к дате тупо прибавить число

например:
20.04.2015 - 9 = 29.04.2015

@Казанский · 30.03.2015, 23:41

Сообщение от Gypka[for]mozga

к дате тупо прибавить число

Ну и прибавляйте как есть

Например А1: 20.04.2015 В1: =A1+9

@Gypka[for]mozga · 31.03.2015, 00:05 **[ТС]**

действительно получается, не знал, что все так просто!) благодарю

@sov44 · 11.09.2015, 20:10

Подскажите, как рассчитать рабочий день, если выходные заданы двумя таблицами. Функцию "РАБДЕНЬ" применить не смог, т.к. не смог указать два диапазона значений выходных.

@Казанский · 11.09.2015, 21:07

sov44, стандартные выходные (сб, вс) не учитывать, а только то, что в таблицах?
Даты в таблицах всегда подряд идут, или могут быть промежутки?

@sov44 · 11.09.2015, 21:18

Сообщение от Казанский

стандартные выходные (сб, вс) не учитывать, а только то, что в таблицах?

Учитывать только даты, указанные в таблицах, без сб. и вс.

Сообщение от Казанский

Даты в таблицах всегда подряд идут, или могут быть промежутки?

могут быть промежутки.

@Казанский · 11.09.2015, 22:39

sov44, пробуйте UDF. Третьим аргументом может быть все, что угодно: диапазон (в т.ч. составной, как в файле, в т.ч. целые столбцы, строки), массив, одиночное значение.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function AddDays(bDay, ByVal nDays, vSkip) As Date
Static di As Object
Dim x, a As Range
If di Is Nothing Then
  Set di = CreateObject("scripting.dictionary")
Else: di.RemoveAll
End If
If IsObject(vSkip) Then
  For Each a In Intersect(vSkip, vSkip.Worksheet.UsedRange).Areas
    For Each x In a.Value2
      di.Item(CDate(x)) = Empty
    Next
  Next
ElseIf IsArray(vSkip) Then
    For Each x In vSkip
      di.Item(CDate(x)) = Empty
    Next
Else: di.Item(CDate(vSkip)) = Empty
End If
For AddDays = bDay + 1 To bDay + nDays + di.Count
  If Not di.exists(CDate(AddDays)) Then
    nDays = nDays - 1
    If nDays = 0 Then Exit Function
  End If
Next
End Function

@Казанский · 11.09.2015, 22:44

On Error Resume Next после 7 строки.

Новые блоги и статьи Все статьи Все блоги /
Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82

	Рабочие дни 30.03.2015, 22:46. Показов 2296. Ответов 7 Метки нет (Все метки) есть формула =Рабдень(дата;кол-во) но она расчитывает как то невнятно, только рабочие, а надо так, чтоб есть дата и цифра, вот к дате тупо прибавить число например: 20.04.2015 - 9 = 29.04.2015 0

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82
	31.03.2015, 00:05 [ТС]
	действительно получается, не знал, что все так просто!) благодарю 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.09.2015, 21:07
	sov44, стандартные выходные (сб, вс) не учитывать, а только то, что в таблицах? Даты в таблицах всегда подряд идут, или могут быть промежутки? 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.09.2015, 22:44
	On Error Resume Next после 7 строки. 0

Опции темы

Рабочие дни

Решение