Ближайшая вторая или четвертая суббота
AlexM
Дата: Вторник, 07.11.2023, 13:15 |
Сообщение № 1
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Привет всем! Давно здесь не был. Пришел с вопросом. Нужна формула которая определит ближайшую вторую или четвертую субботу месяца от текущей даты. Если дата больше четвертой субботы, то показать вторую субботу следующего месяца. Если текущая дата совпадает со второй или четвертой субботой, то формула определяет эту дату. Спасибо.
Привет всем! Давно здесь не был. Пришел с вопросом. Нужна формула которая определит ближайшую вторую или четвертую субботу месяца от текущей даты. Если дата больше четвертой субботы, то показать вторую субботу следующего месяца. Если текущая дата совпадает со второй или четвертой субботой, то формула определяет эту дату. Спасибо. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Привет всем! Давно здесь не был. Пришел с вопросом. Нужна формула которая определит ближайшую вторую или четвертую субботу месяца от текущей даты. Если дата больше четвертой субботы, то показать вторую субботу следующего месяца. Если текущая дата совпадает со второй или четвертой субботой, то формула определяет эту дату. Спасибо. Автор - AlexM Дата добавления - 07.11.2023 в 13:15
msi2102
Дата: Вторник, 07.11.2023, 13:47 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
Попробуйте так (в лоб)Код
=ЕСЛИ(A1<=КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+1))
Попробуйте так (в лоб)Код
=ЕСЛИ(A1<=КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+1))
msi2102
Ответить
Сообщение Попробуйте так (в лоб)Код
=ЕСЛИ(A1<=КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+15);КОНМЕСЯЦА(A1;0)-(5-ДЕНЬНЕД(КОНМЕСЯЦА(A1;0);2)+1))
Автор - msi2102 Дата добавления - 07.11.2023 в 13:47
AlexM
Дата: Вторник, 07.11.2023, 14:07 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
Спасибо. Excel 2003 к сожалению не имеет функции КОНМЕСЯЦА(). Забыл об этом написать.
Спасибо. Excel 2003 к сожалению не имеет функции КОНМЕСЯЦА(). Забыл об этом написать. AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение Спасибо. Excel 2003 к сожалению не имеет функции КОНМЕСЯЦА(). Забыл об этом написать. Автор - AlexM Дата добавления - 07.11.2023 в 14:07
cmivadwot
Дата: Вторник, 07.11.2023, 14:18 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 534
Репутация:
97
±
Замечаний:
0% ±
365
AlexM , примитивный вариант.... с допами. но до конца не проверил, все ли работает.
AlexM , примитивный вариант.... с допами. но до конца не проверил, все ли работает.cmivadwot
Ответить
Сообщение AlexM , примитивный вариант.... с допами. но до конца не проверил, все ли работает.Автор - cmivadwot Дата добавления - 07.11.2023 в 14:18
Serge_007
Дата: Вторник, 07.11.2023, 14:50 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
AlexM , привет! Реально тебя давно не было) Как дела?msi2102 , почему для 28.01.2023 результат 27.01.2023? Сделал немного иначе и без КОНМЕСЯЦА():Код
=МАКС(ЕСЛИ(ДЕНЬНЕД(A1:A14;2)=5;A1:A14))-ЕНЕЧЁТ(СУММ(--(ДЕНЬНЕД(A1:A$1;2)=6)))*7
AlexM , привет! Реально тебя давно не было) Как дела?msi2102 , почему для 28.01.2023 результат 27.01.2023? Сделал немного иначе и без КОНМЕСЯЦА():Код
=МАКС(ЕСЛИ(ДЕНЬНЕД(A1:A14;2)=5;A1:A14))-ЕНЕЧЁТ(СУММ(--(ДЕНЬНЕД(A1:A$1;2)=6)))*7
Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение AlexM , привет! Реально тебя давно не было) Как дела?msi2102 , почему для 28.01.2023 результат 27.01.2023? Сделал немного иначе и без КОНМЕСЯЦА():Код
=МАКС(ЕСЛИ(ДЕНЬНЕД(A1:A14;2)=5;A1:A14))-ЕНЕЧЁТ(СУММ(--(ДЕНЬНЕД(A1:A$1;2)=6)))*7
Автор - Serge_007 Дата добавления - 07.11.2023 в 14:50
elovkov
Дата: Вторник, 07.11.2023, 15:04 |
Сообщение № 6
Группа: Друзья
Ранг: Обитатель
Сообщений: 417
Репутация:
73
±
Замечаний:
0% ±
Excel 2013
В ноябре не работают формулы, раньше-позже на 2-3 месяца тоже, больше не проверял
В ноябре не работают формулы, раньше-позже на 2-3 месяца тоже, больше не проверял elovkov
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
Сообщение отредактировал elovkov - Вторник, 07.11.2023, 15:05
Ответить
Сообщение В ноябре не работают формулы, раньше-позже на 2-3 месяца тоже, больше не проверял Автор - elovkov Дата добавления - 07.11.2023 в 15:04
AlexM
Дата: Вторник, 07.11.2023, 15:12 |
Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
У меня не работает правильно, если в месяце 5 суббот
У меня не работает правильно, если в месяце 5 суббот AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение У меня не работает правильно, если в месяце 5 суббот Автор - AlexM Дата добавления - 07.11.2023 в 15:12
Serge_007
Дата: Вторник, 07.11.2023, 15:50 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
В ноябре не работают формулы
Суббота же 6-й день недели, а я пятый в формуле написал ДЕНЬНЕД(A1:A14;2)= 5 Исправил (см. вложение)
В ноябре не работают формулы
Суббота же 6-й день недели, а я пятый в формуле написал ДЕНЬНЕД(A1:A14;2)= 5 Исправил (см. вложение)Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение В ноябре не работают формулы
Суббота же 6-й день недели, а я пятый в формуле написал ДЕНЬНЕД(A1:A14;2)= 5 Исправил (см. вложение)Автор - Serge_007 Дата добавления - 07.11.2023 в 15:50
elovkov
Дата: Вторник, 07.11.2023, 16:17 |
Сообщение № 9
Группа: Друзья
Ранг: Обитатель
Сообщений: 417
Репутация:
73
±
Замечаний:
0% ±
Excel 2013
С пятью субботами тоже глючит, причем по-разному, смотря от какой даты начинать столбец (декабрь 23 - 5 суббот)
С пятью субботами тоже глючит, причем по-разному, смотря от какой даты начинать столбец (декабрь 23 - 5 суббот) elovkov
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
Ответить
Сообщение С пятью субботами тоже глючит, причем по-разному, смотря от какой даты начинать столбец (декабрь 23 - 5 суббот) Автор - elovkov Дата добавления - 07.11.2023 в 16:17
msi2102
Дата: Вторник, 07.11.2023, 16:21 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
msi2102, почему для 28.01.2023 результат 27.01.2023
Ну да косяк
msi2102, почему для 28.01.2023 результат 27.01.2023
Ну да косякmsi2102
Ответить
Сообщение msi2102, почему для 28.01.2023 результат 27.01.2023
Ну да косякАвтор - msi2102 Дата добавления - 07.11.2023 в 16:21
Serge_007
Дата: Вторник, 07.11.2023, 16:33 |
Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Речь о какой формуле? Моя, вроде, правильно работает - 09.12, 23.12, 06.01
Речь о какой формуле? Моя, вроде, правильно работает - 09.12, 23.12, 06.01 Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Речь о какой формуле? Моя, вроде, правильно работает - 09.12, 23.12, 06.01 Автор - Serge_007 Дата добавления - 07.11.2023 в 16:33
elovkov
Дата: Вторник, 07.11.2023, 16:44 |
Сообщение № 12
Группа: Друзья
Ранг: Обитатель
Сообщений: 417
Репутация:
73
±
Замечаний:
0% ±
Excel 2013
06/01/24 - это первая суббота января)))
06/01/24 - это первая суббота января)))elovkov
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
Ответить
Сообщение 06/01/24 - это первая суббота января)))Автор - elovkov Дата добавления - 07.11.2023 в 16:44
msi2102
Дата: Вторник, 07.11.2023, 16:48 |
Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
AlexM , А UDF не подойдёт?
Ответить
Сообщение AlexM , А UDF не подойдёт?Автор - msi2102 Дата добавления - 07.11.2023 в 16:48
Serge_007
Дата: Вторник, 07.11.2023, 16:58 |
Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
И что?) В задаче же нужна не вторая суббота месяца, а вторая суббота от даты Вторая суббота от 24.12 - это 06.01
И что?) В задаче же нужна не вторая суббота месяца, а вторая суббота от даты Вторая суббота от 24.12 - это 06.01 Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение И что?) В задаче же нужна не вторая суббота месяца, а вторая суббота от даты Вторая суббота от 24.12 - это 06.01 Автор - Serge_007 Дата добавления - 07.11.2023 в 16:58
msi2102
Дата: Вторник, 07.11.2023, 17:18 |
Сообщение № 15
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация:
129
±
Замечаний:
0% ±
Excel 2007
ну не знаю, я понял не такопределит ближайшую вторую или четвертую субботу месяца от текущей даты
ну не знаю, я понял не такопределит ближайшую вторую или четвертую субботу месяца от текущей даты
msi2102
Ответить
Сообщение ну не знаю, я понял не такопределит ближайшую вторую или четвертую субботу месяца от текущей даты
Автор - msi2102 Дата добавления - 07.11.2023 в 17:18
Serge_007
Дата: Вторник, 07.11.2023, 17:27 |
Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Опаньки...
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Опаньки... Автор - Serge_007 Дата добавления - 07.11.2023 в 17:27
AlexM
Дата: Вторник, 07.11.2023, 18:14 |
Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
msi2102 , может и UDF подойдет. Нужен алгоритм, потом на JavaScript попробую переделать. Нужно для сайта
msi2102 , может и UDF подойдет. Нужен алгоритм, потом на JavaScript попробую переделать. Нужно для сайтаAlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Вторник, 07.11.2023, 18:14
Ответить
Сообщение msi2102 , может и UDF подойдет. Нужен алгоритм, потом на JavaScript попробую переделать. Нужно для сайтаАвтор - AlexM Дата добавления - 07.11.2023 в 18:14
AlexM
Дата: Вторник, 07.11.2023, 18:22 |
Сообщение № 18
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация:
1129
±
Замечаний:
0% ±
Excel 2003
В задаче же нужна не вторая суббота месяца
Как раз вторая или четвертая суббота месяца. В январе вторая суббота 13.01.2024
В задаче же нужна не вторая суббота месяца
Как раз вторая или четвертая суббота месяца. В январе вторая суббота 13.01.2024AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Ответить
Сообщение В задаче же нужна не вторая суббота месяца
Как раз вторая или четвертая суббота месяца. В январе вторая суббота 13.01.2024Автор - AlexM Дата добавления - 07.11.2023 в 18:22
Pelena
Дата: Вторник, 07.11.2023, 19:50 |
Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 19407
Репутация:
4556
±
Замечаний:
±
Excel 365 & Mac Excel
Алексей, привет) Рада видеть) Как поживаешь? Посмотри такой вариантКод
=МИН(ЕСЛИ(A1<=ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7);ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7)))
Алексей, привет) Рада видеть) Как поживаешь? Посмотри такой вариантКод
=МИН(ЕСЛИ(A1<=ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7);ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7)))
Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Алексей, привет) Рада видеть) Как поживаешь? Посмотри такой вариантКод
=МИН(ЕСЛИ(A1<=ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7);ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};{2:4}*7-6)+ОСТАТ(6-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{0;1};);7)))
Автор - Pelena Дата добавления - 07.11.2023 в 19:50
Gustav
Дата: Вторник, 07.11.2023, 20:03 |
Сообщение № 20
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация:
1161
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
А у меня такой монстр получился (ох, уж эта версия 2003):Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
Или для удобства рассматривания с другим тэгом: [vba]Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
[/vba] P.S. По традиции в коллекцию - формула для Excel 365/2021+, объясняющая мою логику, которую пытался "как-то пристроить" в 2003 - стремился построить массив для последующего ВПРа: [vba]Код
=LET( г; ГОД(A1); м; МЕСЯЦ(A1); дн1тек; ДЕНЬНЕД(ДАТА(г;м; 1);2); дн1след; ДЕНЬНЕД(ДАТА(г;м+1;1);2); массив; ВСТОЛБИК( ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+ 8); ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+22); ДАТА(г;м+1;ОСТАТ(13-дн1след;7)+ 8)); ПРОСМОТРX(A1;массив;массив;"не найдено";1) )
[/vba]
А у меня такой монстр получился (ох, уж эта версия 2003):Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
Или для удобства рассматривания с другим тэгом: [vba]Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
[/vba] P.S. По традиции в коллекцию - формула для Excel 365/2021+, объясняющая мою логику, которую пытался "как-то пристроить" в 2003 - стремился построить массив для последующего ВПРа: [vba]Код
=LET( г; ГОД(A1); м; МЕСЯЦ(A1); дн1тек; ДЕНЬНЕД(ДАТА(г;м; 1);2); дн1след; ДЕНЬНЕД(ДАТА(г;м+1;1);2); массив; ВСТОЛБИК( ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+ 8); ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+22); ДАТА(г;м+1;ОСТАТ(13-дн1след;7)+ 8)); ПРОСМОТРX(A1;массив;массив;"не найдено";1) )
[/vba] Gustav
МОИ: Ник , Tip box: 41001663842605
Сообщение отредактировал Gustav - Вторник, 07.11.2023, 23:38
Ответить
Сообщение А у меня такой монстр получился (ох, уж эта версия 2003):Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
Или для удобства рассматривания с другим тэгом: [vba]Код
=-ВПР(-ЦЕЛОЕ(A1);-ПСТР( ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+1;1);2);7)+ 8))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+22))& ЦЕЛОЕ(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1) ;1);2);7)+ 8)); {1:6:11};5);1;1)
[/vba] P.S. По традиции в коллекцию - формула для Excel 365/2021+, объясняющая мою логику, которую пытался "как-то пристроить" в 2003 - стремился построить массив для последующего ВПРа: [vba]Код
=LET( г; ГОД(A1); м; МЕСЯЦ(A1); дн1тек; ДЕНЬНЕД(ДАТА(г;м; 1);2); дн1след; ДЕНЬНЕД(ДАТА(г;м+1;1);2); массив; ВСТОЛБИК( ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+ 8); ДАТА(г;м; ОСТАТ(13-дн1тек; 7)+22); ДАТА(г;м+1;ОСТАТ(13-дн1след;7)+ 8)); ПРОСМОТРX(A1;массив;массив;"не найдено";1) )
[/vba] Автор - Gustav Дата добавления - 07.11.2023 в 20:03