Ближайший юбилей в Excel (Даты)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Ближайший юбилей в Excel (Даты) (Формулы/Formulas)

Ace_of_Spades

Дата: Воскресенье, 15.06.2014, 08:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Доброго времени суток! Уважаемая администрация форума, и уважаемые форумчане! Не могли бы вы помочь мне с решением задачи по датам в Excel? Я не могу понять какую формулу следует применить, чтобы в прикрепленном файле рассчитать дату ближайшего юбилея. В ручную очень долго, т.к. очень много строк. И плюс сделать надо так, что если у кого то в этом году день рождения уже прошел - то он бы переносился на следующий год. (Например 16.03.1978 - в 2014 году 03 месяц уже прошел, соответственно ближайший день рождения будет в 2015 году.)

Заранее благодарен!

С уважением, Ден.

К сообщению приложен файл: _Microsoft_Offi.xlsx (11.8 Kb)

Сообщение отредактировал Ace_of_Spades - Воскресенье, 15.06.2014, 08:49

Ответить

Nic70y

Дата: Воскресенье, 15.06.2014, 08:50 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9130

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

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

Excel 2010

Код

=ЕСЛИ(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(F3);ДЕНЬ(F3))<СЕГОДНЯ();ДАТА(ГОД(СЕГОДНЯ())+1;МЕСЯЦ(F3);ДЕНЬ(F3));ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(F3);ДЕНЬ(F3)))

так сойдет?

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 15.06.2014, 08:53

Ответить

Ace_of_Spades

Дата: Воскресенье, 15.06.2014, 09:10 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2007

Nic70y, Да! Все работает! Спасибо Вам большое!

Ответить

jakim

Дата: Воскресенье, 15.06.2014, 11:08 | Сообщение № 4

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

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

Сообщений: 1218

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

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

Excel 2010

Ещё один вариант.

К сообщению приложен файл: 1554627.xlsx (12.9 Kb)

Ответить

AlexM

Дата: Воскресенье, 15.06.2014, 13:41 | Сообщение № 5

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

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

Сообщений: 4517

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

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

Excel 2003

Еще варианты.
Формула для ближайшего дня рождения

Код

=ДАТА(ГОД(B$1)+(-ТЕКСТ(F3;"МДД")>-ТЕКСТ(B$1;"МДД"));МЕСЯЦ(F3);ДЕНЬ(F3))

Формула для ближайшего юбилея кратного 5 годам

Код

=ДАТА(ГОД(F3)+ОКРВВЕРХ(РАЗНДАТ(F3;B$1;"y");5)+(ОСТАТ(РАЗНДАТ(F3;B$1;"y");5)=0)*5;МЕСЯЦ(F3);ДЕНЬ(F3))

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

Ответить

AlexM

Дата: Воскресенье, 15.06.2014, 15:30 | Сообщение № 6

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

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

Сообщений: 4517

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

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

Excel 2003

В Мозговом штурме Константин (Gustav) предложил очень компактную формулу. С минимальной доработкой годится для определения ближайшего дня рождения.

Код

=B$1-ВПР(;B$1-ДАТА(ГОД(B$1)+{1:0};МЕСЯЦ(F3);ДЕНЬ(F3));1)

. Эта формула была объявлена как массивная, но и при обычном вводе работает правильно.

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

Ответить

NIGHTMAN

Дата: Четверг, 20.03.2025, 15:40 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

2019

Добрый день всем! Формула из сообщения #2 - так сойдёт работала не корректно после наступления события в этом году.

Доработанная версия:

Код

=ЕСЛИ(ЕСЛИ(ЕСЛИ(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))<СЕГОДНЯ();ДАТА(ГОД(СЕГОДНЯ())+1;МЕСЯЦ(J5);ДЕНЬ(J5));ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5)))<$J$2;"";ЕСЛИ(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))<СЕГОДНЯ();ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5));ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))))-365>$J$2;"";ЕСЛИ(ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))<СЕГОДНЯ();ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5));ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))))

К сообщению приложен файл: 7956160.png (90.7 Kb)

С уважением, Руслан Николаевич

Сообщение отредактировал NIGHTMAN - Четверг, 20.03.2025, 15:41

Ответить

_Boroda_

Дата: Четверг, 20.03.2025, 16:15 | Сообщение № 8

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

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

Сообщений: 16886

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата NIGHTMAN, 20.03.2025 в 15:40, в сообщении № 7 (

)

Формула из сообщения #2 - так сойдёт работала не корректно после наступления события в этом году.

Все там корректно работает, как и заказывали -

Цитата Ace_of_Spades, 15.06.2014 в 08:44, в сообщении № 1 (

)

если у кого то в этом году день рождения уже прошел - то он бы переносился на следующий год

А то, что вы написали, можно чуть попроще сделать-

Код

=ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(J5);ДЕНЬ(J5))

Или даже так, но 29 февраля не возьмет

Код

=--ТЕКСТ(J5;"Д.М")

Так, например, можно

Код

=--ПОДСТАВИТЬ(ТЕКСТ(J5;"Д.М");"29.2";"1.3")

Код

=-ЕСЛИОШИБКА(-ТЕКСТ(J5;"Д.М");-"1.3")

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

bmv98rus

Дата: Четверг, 20.03.2025, 20:18 | Сообщение № 9

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

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

Сообщений: 4147

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

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

Excel 2013/2016

_Boroda_, горшочек, не вари.

Название темы вааще не соответствует вопросу и многим решениям и только AlexM, вспомнил что юбилейный год не каждый.

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

Ответить

_Boroda_

Дата: Пятница, 21.03.2025, 10:33 | Сообщение № 10

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

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

Сообщений: 16886

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата bmv98rus, 20.03.2025 в 20:18, в сообщении № 9 (

)

юбилейный год не каждый

А пофиг. Это ТС просто не совсем верно пользуется понятием "юбилей", которое, кстати, и не так уж четко определено. А мы ориентируемся не на формальное название темы, а на конкретный вопрос в теле поста)))
И вообще - это моя шоковая реакция на "доработанную" формулу

Ответить

bmv98rus

Дата: Пятница, 21.03.2025, 14:36 | Сообщение № 11

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

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

Сообщений: 4147

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

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

Excel 2013/2016

[offtop]

Цитата _Boroda_, 21.03.2025 в 10:33, в сообщении № 10 (

)

это моя шоковая реакция

ну Юбилей достаточно определен, другое дело что в современном мире большими круглыми числами стали считать все что угодно. Хотя когда на работе к юбилею дают премию? то я за то чтоб он был каждый год ;-)[/offtop]

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

Сообщение отредактировал bmv98rus - Пятница, 21.03.2025, 17:27

Ответить

elovkov

Дата: Пятница, 21.03.2025, 15:53 | Сообщение № 12

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

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

Сообщений: 498

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

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

Excel 2013

[offtop]
Пофлудим)))

Цитата _Boroda_, 21.03.2025 в 10:33, в сообщении № 10 (

)

которое, кстати, и не так уж четко определено

Словарь Даля:
[vba]

Код

ЮБИЛЕЙ м. лат. торжество, празднество, по поводу протекшего пятидесятилетия, столетия, тысячелетия, юбилейное торжество. Юбилей пятидесятилетия службы, докторства. Юбилей тысячелетия Руси.

[/vba]
[/offtop]

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

Ответить

jakim

Дата: Суббота, 22.03.2025, 09:55 | Сообщение № 13

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

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

Сообщений: 1218

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

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

Excel 2010

Три варианта.

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

Ответить

Ближайший юбилей в Excel (Даты) (Формулы/Formulas)

Страница 1 из 1
1