Ближайшая вторая или четвертая суббота - Страница 2

Старая форма входа

Страница 2 из 3 « 1 2 3 »
Модератор форума: китин

Мир MS Excel » Работа и общение » Мозговой штурм » Ближайшая вторая или четвертая суббота (Формулы/Formulas)

Ближайшая вторая или четвертая суббота

AlexM

Дата: Вторник, 07.11.2023, 22:03 | Сообщение № 21

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

С помощью Елены формула получилась.

Код

=-ПРОСМОТР(-A2;-ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;1;0;0};{4;2;4;2}*7-6)-ОСТАТ(6-ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;1;0;0};);7))

Проверил даты с 1.01.2023 по 7.03.2024
Спасибо всем за помощь.

К сообщению приложен файл: vtoraja_i_chetvertaja_subbota2.xls (294.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Gustav

Дата: Среда, 08.11.2023, 01:10 | Сообщение № 22

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2747

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата AlexM, 07.11.2023 в 22:03, в сообщении № 21 (

)

ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;1;0;0}

А и правда! hands

Что-то я свою формулу недогнул в этом направлении, полёз в какие-то дебри с текстовыми массивами, а оно вон как всё можно было элегантно свернуть:

Код

=-ВПР(-A1;-ДАТА(ГОД(A1);МЕСЯЦ(A1)+{1:0:0};ОСТАТ(13-ДЕНЬНЕД(ДАТА(ГОД(A1);МЕСЯЦ(A1)+{1:0:0};1);2);7)+{8:22:8});1;1)

Единственное, чего пока не понял - как вы обошлись совсем без функции ДЕНЬНЕД, но будет время - поразбираюсь. Всё-таки новые версии Excel со своими новыми супер-функциями для работы с массивами прежний эксельный разум и навыки изрядно убаюкивают, а, может быть, наоборот - берегут для достижения новых горизонтов.

МОИ: Ник, Tip box: 41001663842605

Ответить

msi2102

Дата: Среда, 08.11.2023, 09:38 | Сообщение № 23

Группа: Проверенные

Ранг: Обитатель

Сообщений: 413

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Вот ещё UDF
[vba]

Код

Public Function Saturday_2_4(d1 As Date)
    Dim n As Byte, m As Byte, d2 As Date
    For m = 0 To 1
        n = 7 - Weekday(DateSerial(Year(d1), Month(d1) + m, 1), vbSaturday)
        For i = 1 To 3 Step 2
            d2 = DateAdd("ww", i, DateAdd("d", n, DateSerial(Year(d1), Month(d1) + m, 1)))
            If d1 <= d2 Then Saturday_2_4 = d2: Exit Function
        Next
    Next
End Function

[/vba]

К сообщению приложен файл: subbota.xlsm (17.0 Kb)

Сообщение отредактировал msi2102 - Среда, 08.11.2023, 09:41

Ответить

AlexM

Дата: Среда, 08.11.2023, 11:49 | Сообщение № 24

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

msi2102, n = 7 - Weekday.....
С 7 не верный результат, после замены на 8 работает с ошибками.

К сообщению приложен файл: subbota2.xlsm (65.6 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

msi2102

Дата: Среда, 08.11.2023, 12:23 | Сообщение № 25

Группа: Проверенные

Ранг: Обитатель

Сообщений: 413

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Цитата AlexM, 08.11.2023 в 11:49, в сообщении № 24 (

)

С 7 не верный результат, после замены на 8 работает с ошибками.

Мой косяк, исправил:
[vba]

Код

Public Function Saturday_2_4(d1 As Date)
    Dim n As Byte, m As Byte, d2 As Date
    For m = 0 To 1
        n = 7 - Weekday(DateSerial(Year(d1), Month(d1) + m, 1))
        For i = 1 To 3 Step 2
            d2 = DateAdd("ww", i, DateAdd("d", n, DateSerial(Year(d1), Month(d1) + m, 1)))
            If d1 <= d2 Then Saturday_2_4 = d2: Exit Function
        Next
    Next
End Function

[/vba]

К сообщению приложен файл: 9757612.xlsm (65.3 Kb)

Ответить

AlexM

Дата: Среда, 08.11.2023, 13:20 | Сообщение № 26

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

msi2102, Спасибо большое.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

AlexM

Дата: Воскресенье, 12.11.2023, 11:49 | Сообщение № 27

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

Завершил поставленную задачу.
Для преобразования в код JavaScript выбрал свою формулу. Формула чуть сократилась и вышла так

Код

=-ПРОСМОТР(-A2;-ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;0;0};{2;4;2}*7-6)-ОСТАТ(6-ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;0;0};);7))

Теперь на сайте будет строка "Следующая рабочая суббота - ДАТА"
В коде JavaScript учел, что если текущая дата совпадает с найденной ближайшей (второй или четвертой в месяце) субботой, то после 14:00 (окончание рабочего времени) будет показана следующая рабочая суббота.
Код тестовой странички получился такой
[vba]

Код

<html>

<body>
<p>Следующая рабочая суббота - <b id="Saturday"></b></p>
</body>

<script>
var today = new Date()
today.setSeconds(today.getSeconds()-50399)
for ( var m = 0; m < 3; m++) {
    var today1 =  new Date(today.getFullYear(), today.getMonth() + Math.floor(m / 2), 2*((m % 2)+1)*7-6)
    var today2 =  new Date(today.getFullYear(), today.getMonth() + Math.floor(m / 2), 1)
    today2.setDate(1 - today2.getDate())
    var today2 = 7-(today2 % 7)
    today1.setDate(today1.getDate() + today2)
    if ( today1 >= today ) break
}
    document.getElementById("Saturday").innerHTML =today1.toLocaleDateString();
</script>

</html>

[/vba]
Еще раз всем большое спасибо за помощь.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 12.11.2023, 11:50

Ответить

bmv98rus

Дата: Воскресенье, 12.11.2023, 14:44 | Сообщение № 28

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Код

=-LOOKUP(-A2;WEEKDAY(TEXT(A2+{31;0;0};"ГГГ-М-\1");2)-TEXT(A2+{31;0;0};"ГГГ-М-\1")-{13;27;13})

AlexM, И правда, где пропадал?

[offtop]

Цитата AlexM, 12.11.2023 в 11:49, в сообщении № 27 (

)

Теперь на сайте будет строка "Следующая рабочая суббота - ДАТА"

А что за сайт который только каждую вторую субботу работает?

[/offtop]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Воскресенье, 12.11.2023, 15:32

Ответить

AlexM

Дата: Воскресенье, 12.11.2023, 15:41 | Сообщение № 29

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

Сайт работает 24/7 с апреля 2009 года.
Так работает новое правление. Для старого правления объявление было не нужно. Работало всегда.
СНТ Чкаловское

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

AlexM

Дата: Воскресенье, 12.11.2023, 16:38 | Сообщение № 30

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4493

Репутация: 1115 ±

Замечаний: 0% ±

Excel 2003

bmv98rus, формула работает не корректно. Посмотри ее работу в файле из сообщения 24

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

bmv98rus

Дата: Воскресенье, 12.11.2023, 16:40 | Сообщение № 31

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

[offtop]Понятно, шутка не прошла.[/offtop]

А с формулой- доупрощался :-) Ща допилим.

Код

=-LOOKUP(-A2;WEEKDAY(TEXT(A2+{21;0;0};"ГГГ-М-\1"))-TEXT(A2+{21;0;0};"ГГГ-М-\1")-{14;28;14})

К сообщению приложен файл: example2894.xlsm (69.7 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Воскресенье, 12.11.2023, 18:27

Ответить

Светлый

Дата: Понедельник, 13.11.2023, 13:31 | Сообщение № 32

Группа: Друзья

Ранг: Старожил

Сообщений: 1829

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

У меня такая формула получилась:

Код

=МИН(ТЕКСТ(ДАТА(ГОД(A2);МЕСЯЦ(A2)+{0;1};{15:29})-ДЕНЬНЕД(ДАТА(ГОД(A2);МЕСЯЦ(A2)+{0;1};1))-A2;"0;99")+A2)

*Неправильно, если последний день предыдущего месяца суббота.
**Исправил формулу.

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Понедельник, 13.11.2023, 15:14

Ответить

elovkov

Дата: Понедельник, 13.11.2023, 14:00 | Сообщение № 33

Группа: Друзья

Ранг: Обитатель

Сообщений: 368

Репутация: 50 ±

Замечаний: 0% ±

Excel 2013

Цитата Светлый, 13.11.2023 в 13:31, в сообщении № 32 (

)

такая формула

В сентябре и декабре 2024 неправильно вычисляет

Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица

Ответить

Светлый

Дата: Вторник, 14.11.2023, 23:45 | Сообщение № 34

Группа: Друзья

Ранг: Старожил

Сообщений: 1829

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Чтобы не пропадало:

Код

=МИН(ТЕКСТ(МУМНОЖ(ОСТАТ(ДАТА(ГОД(A2);МЕСЯЦ(A2)+{0:0:1};7*{2:4:2});7^{6;1});{1:-1})-A2;"0;99")+A2)

Программировать проще, чем писать стихи.

Ответить

Gustav

Дата: Среда, 15.11.2023, 03:55 | Сообщение № 35

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2747

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Коллеги, выяснилась интересная деталь - оказывается, ДЕНЬНЕД(0; 2) как раз является субботой! Прямо на радость нашей теме, со всеми вытекающими

Код

=-ПРОСМОТР(-A2;-(ОТБР(ДАТА(ГОД(A2);МЕСЯЦ(A2)+{1;0;0};)/7)+{2;4;2})*7)

МОИ: Ник, Tip box: 41001663842605

Ответить

elovkov

Дата: Среда, 15.11.2023, 07:18 | Сообщение № 36

Группа: Друзья

Ранг: Обитатель

Сообщений: 368

Репутация: 50 ±

Замечаний: 0% ±

Excel 2013

Мне кажется это уже в МШ переносить можно))) Я себе файл сохранил с разными вариантыми, у каждого свой подход, пригодится поразбирать для саморазвития

Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица

Ответить

bmv98rus

Дата: Среда, 15.11.2023, 07:51 | Сообщение № 37

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Gustav, Единственное, это TRUNC - Я точно в XP его еще не помню, 2003 пропустил и просто не знаю был ли там.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Serge_007

Дата: Среда, 15.11.2023, 09:04 | Сообщение № 38

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата elovkov, 15.11.2023 в 07:18, в сообщении № 36 (

)

это уже в МШ переносить можно

А я и перенесу

Отличная тема получилась!

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gustav

Дата: Среда, 15.11.2023, 12:03 | Сообщение № 39

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2747

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата bmv98rus, 15.11.2023 в 07:51, в сообщении № 37 (

)

TRUNC - Я точно в XP его еще не помню

bmv98rus, был-был! У меня есть фирменная книжка Function Reference по Excel 3.0 (1990) - в ней TRUNC присутствует. Думаю, что лихая парочка INT и TRUNC были в Excel с самого начала.

Так что, наверное, просто не замечал. Я в большинстве подобных случаев по жизни INT обходился. И только, попав на Форум и вкусив аромат МШ, осознал, что в русской версии ОТБР короче ЦЕЛОЕ на целый символ!