Даты, Дни, Недели, Месяц, Год

Khlopkov Пользователь Сообщений: 67 Регистрация: 01.01.1970	#1 05.04.2011 18:40:46 Здравствуйте, подскажите какой формулой можно Дни преобразовать в недели, месяца и года? Пример прилагаю. Заранее спасибо Прикрепленные файлы post_215916.xls (19.5 КБ)

Haken Пользователь Сообщений: 495 Регистрация: 09.01.2013	#2 05.04.2011 19:11:36 =ГОД(...) =МЕСЯЦ(...) =НОМНЕДЕЛИ(...) Поиск по формулам пробовали? :)

Guest Гость	#3 05.04.2011 19:58:51 Так? Прикрепленные файлы post_215936.xls (29.5 КБ)

Khlopkov Пользователь Сообщений: 67 Регистрация: 01.01.1970	#4 06.04.2011 06:36:18 да! Спасибо! То что надо!

davaispoem Пользователь Сообщений: 101 Регистрация: 01.01.1970	#5 01.02.2012 05:44:16 А если нужно преобразовать название месяца в число месяца, или период месяцев в количество месяцев. Помогите пожалуйста, как это сделать. Прикрепленные файлы post_303475.xls (20.5 КБ) Ирина

anvg Пользователь Сообщений: 11927 Регистрация: 22.12.2012 Excel 2016, 365	#6 01.02.2012 06:05:39 Номер месяца можно получить так =МЕСЯЦ( ДАТАЗНАЧ("1 " & A6 & "2000")) Соответственно, используюя НАЙТИ, ЛЕВСИМВ, ПРАВСИМВ, и выше изложенным можно найти количество месяцев в интервале.

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

01.02.2012 06:21:21

UDF:
Public Function MyMonth&(s$)
Dim a, b, i&, j&
b = Split(s, "-")
a = Split("янв фев мар апр май июн июл авг сен окт ноя дек")
For i = 0 To UBound(b): For j = 0 To UBound(a)
If b(i) Like a(j) & "*" Then _
MyMonth = IIf(i = 0, j + 1, j - MyMonth + 2): Exit For
Next j, i
End Function

Прикрепленные файлы

post_303480.xls (36.5 КБ)

Я сам - дурнее всякого примера! ...

davaispoem

Пользователь

Сообщений: 101 Регистрация: 01.01.1970

01.02.2012 07:14:28

Сергей, спасибо вам, я вижу прекрасно считается в столбике, все как я хотела, но не смогу я самостоятельно применить макрос к своей табличке, не умею я.

А вот формула считает только одинокий месяц, не могу сообразить как применить (НАЙТИ, ЛЕВСИМВ, ПРАВСИМВ) чтобы считался период. Ну если не трудно anvg, поясните как мне это сделать, за ранее благодарна.

Еще раз всем спасибо за помощь.

Ирина

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#9 01.02.2012 07:21:17 Вы меня обескуражили:-( Там в ячейках формула. Вставляйте в формулу адрес вычисляемой ячейки и все. Вот оно - счастье:-) Я сам - дурнее всякого примера! ...

davaispoem Пользователь Сообщений: 101 Регистрация: 01.01.1970	#10 01.02.2012 07:40:50 я смотрю что формула не работает без включения макроса, вот и сделала грандиозный вывод... а у меня в табличке формула не работает не с включением, не без включения макроса... нет счастья мне, Сергей... Ирина

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#11 01.02.2012 07:53:51 А вы скопировали макрос в общий модуль? Я сам - дурнее всякого примера! ...

davaispoem Пользователь Сообщений: 101 Регистрация: 01.01.1970	#12 01.02.2012 08:12:06 Нужно просто скопировать? Я думала нужно подгонять его еще к своим параметрам таблицы. Ну щас я что нибудь натворю. Буду пробовать, спасибки. Ирина

MCH Пользователь Сообщений: 3907 Регистрация: 22.12.2012	#13 01.02.2012 08:23:28 Формулой: =ЕСЛИ(ЕЧИСЛО(ПОИСК("-";A6));ОСТАТ(МЕСЯЦ(--("1 "&ПСТР(A6;ПОИСК("-";A6)+1;10)&" 00"))-МЕСЯЦ(--("1 "&ЛЕВСИМВ(A6;ПОИСК("-";A6)-1)&" 00"));12)+1;МЕСЯЦ(--("1 "&A6&" 00"))) Прикрепленные файлы post_303501.xls (27.5 КБ)

MCH Пользователь Сообщений: 3907 Регистрация: 22.12.2012	#14 01.02.2012 08:26:46 Бинарное отрицание ("--") здесь даже и не нужно, МЕСЯЦ справляется и без него: =ЕСЛИ(ЕЧИСЛО(ПОИСК("-";A6));ОСТАТ(МЕСЯЦ("1 "&ПСТР(A6;ПОИСК("-";A6)+1;10)&" 00")-МЕСЯЦ("1 "&ЛЕВСИМВ(A6;ПОИСК("-";A6)-1)&" 00");12)+1;МЕСЯЦ("1 "&A6&" 00"))

davaispoem Пользователь Сообщений: 101 Регистрация: 01.01.1970	#15 01.02.2012 08:43:41 Замечательно, все получилось, формула работает. Спасибо большое. Ирина

Читают тему