Номер недели в соответствии с ГОСТ ИСО 8601-2001 - Страница 3

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

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

Номер недели в соответствии с ГОСТ ИСО 8601-2001

AndreTM

Дата: Пятница, 10.05.2013, 20:50 | Сообщение № 41

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

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

Сообщений: 1762

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

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

2003 & 2010

Ага... Моя была такой:

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Пятница, 10.05.2013, 21:15

Ответить

MCH

Дата: Суббота, 11.05.2013, 00:25 | Сообщение № 42

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

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

Сообщений: 2004

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

Замечаний: ±

ну и моя:

Ответить

Дата: Суббота, 11.05.2013, 04:34 | Сообщение № 43

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

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

Сообщений: 286

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

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

Excel 2010 RUS

Цитата (AndreTM)

Я по вашей "подсказке" придумал формулу на 45/40 знаков, но работает она нормально только в промежутке 2000-2099.

+1 за скобками, поэтому и не работала с диапазоном до 2000 года.

Ответить

MCH

Дата: Суббота, 11.05.2013, 08:24 | Сообщение № 44

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

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

Сообщений: 2004

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

Замечаний: ±

Цитата (AndreTM)

d2 = d - Weekday(d, vbMonday) + 3

должно быть
[vba]

Код

d2 = d - Weekday(d, vbMonday) + 4

[/vba]

Ответить

AndreTM

Дата: Суббота, 11.05.2013, 17:06 | Сообщение № 45

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

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

Сообщений: 1762

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

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

2003 & 2010

Цитата (MCH)

должно быть
d2 = d - Weekday(d, vbMonday) + 4

Уверен? Проверил? biggrin

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

Rustem

Дата: Суббота, 11.05.2013, 17:21 | Сообщение № 46

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

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

Сообщений: 281

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

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

Excel 2013

Моя такая:

Код

=1+ОТБР((A2-("5.1."&ГОД(A2-1))+ДЕНЬНЕД("3.1."&ГОД(A2-1)))/7)

Даты приведенные в файле МСН находит, на других не проверял.

WMR: R183220163895

Ответить

MCH

Дата: Суббота, 11.05.2013, 18:58 | Сообщение № 47

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

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

Сообщений: 2004

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

Замечаний: ±

Цитата (AndreTM)

Уверен? Проверил?

Обижаешь, конечно проверил

В формуле используется ДЕНЬНЕД(A3;3), которая возвращает значения 0(Пн) - 6(Вс)
А в UDF - Weekday(d, vbMonday), возвращающая 1(Пн) - 7(Вс)

К сообщению приложен файл: WeekNum2.rar (88.6 Kb)

Ответить

AndreTM

Дата: Четверг, 16.05.2013, 04:47 | Сообщение № 48

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

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

Сообщений: 1762

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

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

2003 & 2010

А, да, чего-то это я туплю...
Ведь изначальный вариант был именно с +4, но где-то я потом при проверках изменил - так и осталось.
Даже странно, что не всплыло у меня при тестировании.

А, точно, нашел - скопипастил из разработки (там-то на текущем годе считало правильно) на Планету, затем скопировал с Планеты сюда... biggrin

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Четверг, 16.05.2013, 05:06

Ответить

Номер недели в соответствии с ГОСТ ИСО 8601-2001

Страница 3 из 3
«
1
2
3