Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Количество дней со временем, преображающееся в кол-во месяцев.
 
#1
15.11.2014 15:55:07
Всем привет.
Стоит такая задача. В одной ячейке отражается количество дней с определенной даты.
Со временем количество дней переваливает за 100 и неудобно вести анализ по времени.
Нужно чтобы в ячейке, после превышении 30 дней, количество дней превращалось в количество месяцев и отражалось римскими буквами.
 
 
 
#2
15.11.2014 16:56:33
Не уверена, что правильно поняла

Код
=ЕСЛИ(СЕГОДНЯ()-ДАТА(2014;10;31)<=30;СЕГОДНЯ()-ДАТА(2014;10;31);РИМСКОЕ((СЕГОДНЯ()-ДАТА(2014;10;31))/30))
 
 
 
#3
15.11.2014 17:01:21
Pelena, спасибо, что откликнулись.
Однако, в предложенной вами формуле, дату надо выставлять сразу 3 раза. Нужна формула, где дата ставится только 1 раз.
 
 
 
#4
15.11.2014 17:04:47
Наверное стоит выражение "СЕГОДНЯ()-ДАТА(2014;10;31)" приравнять к какому-нибудь аргументу или константе, и дальше сравнивать с ним.
 
 
 
#5
15.11.2014 17:08:42
Введите дату в отдельную ячейку и ссылайтесь на неё, например, дату в D1

Код
=ЕСЛИ(СЕГОДНЯ()-$D$1<=30;СЕГОДНЯ()-$D$1;РИМСКОЕ((СЕГОДНЯ()-$D$1)/30))
 
 
 
#6
15.11.2014 17:29:59
Pelena, а есть решение без использования дополнительной ячейки?
Чтобы решалось все в одной. Или я прошу невозможное?  
 
 
 
#7
15.11.2014 17:51:22
Цитата
Chione пишет:
стоит выражение " СЕГОДНЯ()-ДАТА(2014;10;31) " приравнять к какому-нибудь аргументу или константе
Можно дать этому выражению имя и его использовать в формуле. Смотрим Диспетчер имен (Ctrl+F3)
 
 
 
#8
15.11.2014 18:24:11
Pelena, а можно приравнять выражение  "СЕГОДНЯ()-ДАТА(2014;10;31)" к аргументу в самой ячейке, без использования Диспетчера имен?
 
 
 
#9
15.11.2014 19:25:54
Ну, где-то ведь это "СЕГОДНЯ()-ДАТА(2014;10;31)" должно быть прописано. Либо в отдельной ячейке, либо в имени. Не представляю, как можно иначе сделать.
Пользовательскую функцию ещё можно написать...
 
 
 
#10
17.11.2014 09:25:45
Ребята, есть еще идеи как это реализовать?
 
 
 
#11
17.11.2014 12:27:22
Цитата
Chione пишет: я прошу невозможное
думаю, что без UDF - именно так и обстоит дело
Код
Function diff_rom(dd As Date)
If Date - dd > 30 Then
    diff_rom = Application.WorksheetFunction.Roman((Date - dd) / 30)
Else
    diff_rom = Date - dd
End If
End Function
F1 творит чудеса
 
 
 
#12
23.11.2014 16:31:45
Максим Зеленский, как теперь использовать этот макрос?
 
 
 
#13
23.11.2014 20:54:56
Цитата
Chione пишет: как теперь использовать этот макрос?
Читаем ЗДЕСЬ
 
 
 
#14
29.11.2014 11:22:56
Максим Зеленский, код - не то что нужно. Если в одной ячейке невозможно реализовать, придется дату выносить в другую.
 
 
 
Страницы: 1
Наверх