Имя: Пароль:
1C
 
Как определить по дате день недели
0 Alex753
 
15.03.11
06:46
Какая функция в 1С.7 определяет по дате день недели
1 forforumandspam
 
15.03.11
06:47
НомерДняНедели(<?>)
Синтаксис:
НомерДняНедели(<Дата>)
Назначение:
Возвращает порядковый номер дня недели для заданной даты.
Параметры:
<Дата> - выражение со значением типа дата.
Замечание:
Порядковые номера дней недели: 1 - понедельник, 2 - вторник, ..., 7 - воскресенье.
2 ДенисЧ
 
15.03.11
06:48
Это как же надо облениться...


НомерДняНедели(<?>)
Синтаксис:
НомерДняНедели(<Дата>)
Назначение:
Возвращает порядковый номер дня недели для заданной даты.
Параметры:
<Дата> - выражение со значением типа дата.
Замечание:
Порядковые номера дней недели: 1 - понедельник, 2 - вторник, ..., 7 - воскресенье.
3 PaulBC
 
15.03.11
06:49
Формат(Дата, "ДНННН")
4 Нуф-Нуф
 
15.03.11
06:55
НомерДняНедели() уже предлагали?
5 1Сергей
 
15.03.11
07:38
учу читать *.als средствами 1С. Очень дорого
6 Mikeware
 
15.03.11
07:39
(5) Говорят, один товарищ написал вирус, ворующий СП сразу же при установке...
7 Rie
 
15.03.11
07:41
(6) А ещё этот вирус перехватывает управление "шредером" и превращает ЖКК в конфетти.
8 Mikeware
 
15.03.11
07:42
(7) Если "в конфетти", то тогда перехватывается управление дыроколом :-)
9 1Сергей
 
15.03.11
07:43
(6) Кажется, я даже знаю кто это. В этой ветке он уже отметился?
10 Mikeware
 
15.03.11
07:47
(9)Тс-с-с!
за кражу СП не притянуть, а вот за перехват управления и порчу имущества уже можно...
11 andrewks
 
15.03.11
08:31
жуть какая-то...
12 VladZ
 
15.03.11
08:45
Всякую фигню пишите, а про "НомерДняНедели" никто и не сказал...
13 Alex753
 
15.03.11
08:48
По подробнее об этой функции можно
14 poligraf
 
15.03.11
09:07
(12) в первых двух сообщениях...
(13) т.е. в первых двух сообщениях что-то непонятно?!
15 andrewks
 
15.03.11
09:11
(14) 1. :-) шутка юмора не заценена
16 poligraf
 
15.03.11
09:12
(15) неа. туго соображается:)
17 1Сергей
 
15.03.11
09:24
(13) Пригласите специалиста
18 Alex753
 
15.03.11
10:10
Значение в скобках какие должны НомерДняНедели(<...>), все перебрал
19 Боромир
 
15.03.11
10:12
НомерДняНедели(ДатаДок)
например, или
НомерДняНедели('01.01.11')
20 Alex753
 
15.03.11
10:14
Не помогает уже пробовал, может не правильно составил команду:    
Для Сч = ДатаНачала По ДатаКонца Цикл
       ПечДата = НомерДняНедели('01.01.11');
       Таб.ПрисоединитьСекцию("Шапка" + Строка(ВыбВид.ТекущаяСтрока()) + "|Дата" + ?(ВыбВид.ТекущаяСтрока() = 1, "1", "2"));
КонецЦикла;
21 ДенисЧ
 
15.03.11
10:14
ПечДата = НомерДняНедели(сч);
22 Alex753
 
15.03.11
10:17
спс, уже ближе, теперь надо шаблон корректировать походу
23 Alex753
 
15.03.11
10:22
а можно эту процедуру ПечДата = НомерДняНедели(сч);перевести в текст, чтоб выводилось на от 1 -7 а понедельник, вторник и ...
24 1Сергей
 
15.03.11
10:22
(23) см (3)
25 chelentano
 
15.03.11
10:23
(23) можно, переводи
26 antoneus
 
15.03.11
10:23
(23) -> (3)
27 aleks-id
 
15.03.11
10:28
ПечДата = Формат(сч, "ДФ=дддд")
28 aleks-id
 
15.03.11
10:29
блин. для 8-ки написал в (27) но суть такая же в (3) :)
29 skunk
 
15.03.11
10:29
очленел ... на 27 постов раздули комментарий к сп
30 aleks-id
 
15.03.11
10:30
(29) порежь уже все это безобразие
31 andrewks
 
15.03.11
10:31
(29) мы и на 100 могём, есличо... )))
32 Skom
 
15.03.11
14:08
ну коли еще никто не предложил тогда я предложу

НомерДняНедели(ДатаДок)
33 1Сергей
 
15.03.11
14:10
(32) не правильный ответ
34 zak555
 
15.03.11
14:18
Функция _НомерДняНедели(_Дата)

  ДД=0; ММ=0; ГГ=0;
  ДД = ДатаЧисло(_Дата);
  ММ = ДатаМесяц(_Дата);
  ГГ = ДатаГод  (_Дата);

  Если ММ > 2 Тогда
     ММ = ММ + 1;
  Иначе
     ММ = ММ + 13;
     ГГ = ГГ - 1;
  КонецЕсли;
  Номер = 36525*ГГ/100+306*ММ/10+ДД-621050;
  Возврат = Номер -Номер /7*7+1;
КонецФункции
35 andrewks
 
15.03.11
15:46
(34) жесть...
36 zak555
 
15.03.11
15:53
(35) не работает ?*
37 1Сергей
 
15.03.11
15:54
(34) а что вот это за манипуляции:
...-Номер /7*7+...
?
38 andrewks
 
15.03.11
15:54
(36) откель мне знать, не проверял )
39 poligraf
 
15.03.11
17:29
Блин.
Заставили таки залезть в СП, осмыслить и предложить эксклюзивную функцию.

(0) ТС, она работает только для 2011 года.
Это только маленький кусочек, за 10 рублей/строчка допишу дальше.

Функция НомерДняНедели(пДата)
 Если пДата = Дата("01.01.2011") Тогда
   Возврат 6;
 ИначеЕсли пДата = Дата("02.01.2011") Тогда
   Возврат 7;
 ИначеЕсли пДата = Дата("03.01.2011") Тогда
   Возврат 1;
 ИначеЕсли пДата = Дата("04.01.2011") Тогда
   Возврат 2;
 КонецЕсли;
КонецФункции
40 G-Re
 
15.03.11
19:35
(39) ... а строчек только для 2011г 365*2. Да, неплохой заработок, и, главное, будет работать!!!
41 andrewks
 
15.03.11
22:01
(40) угу! причём, уверен, он напишет программу в 5 строк по генерации данного кода )
42 poligraf
 
16.03.11
04:49
(41) ты чего палишь!
43 DJ Anthon
 
16.03.11
05:55
(41) и на обслуживание можно поставить. раз в месяц продлевать лицуху на код )
44 Alex753
 
16.03.11
10:45
Извените, возникла новая проблема. Как вывести даты на днями недели. Он указывает одну начальную дату и все
45 Гефест
 
16.03.11
10:45
Кто этот страшный "он"?
46 1Сергей
 
16.03.11
10:46
(44) код в студийу
47 Alex753
 
16.03.11
10:46
В этой среде еще новичек )))
48 Ork
 
16.03.11
10:46
"Он указывает одну начальную дату и все"
Кто такой злобный "ОН"?
49 Alex753
 
16.03.11
10:47
Таб.ВывестиСекцию("Заголовок|Основная");
   Таб.ВывестиСекцию("Шапка" + Строка(ВыбВид.ТекущаяСтрока()) + "|Основная");
   Для Сч = ДатаНачала По ДатаКонца Цикл
       ПечДата = НомерДняНедели(сч);    
       ПечДата = Формат(сч, "ДНННН");
       ПечДат = Строка(Сч); - ??????? Может здесь не правильно
   Таб.ПрисоединитьСекцию("Шапка" + Строка(ВыбВид.ТекущаяСтрока()) + "|Дата" + ?(ВыбВид.ТекущаяСтрока() = 1, "1", "2"));
   КонецЦикла;
50 1Сергей
 
16.03.11
10:47
(48) (45) компутер. Что-то у вас телепат барахлит...
51 1Сергей
 
16.03.11
10:49
(49) вроде, должно взлететь.
а в макете как прописано?
52 Alex753
 
16.03.11
10:54
Здесь можно как нибудь скрин сбросить
53 1Сергей
 
16.03.11
10:55
54 Evgenchik
 
16.03.11
10:56
а зачем
ПечДата = Формат(сч, "ДНННН");
ПечДат = Строка(Сч);
?
55 Alex753
 
16.03.11
10:56
56 1Сергей
 
16.03.11
10:57
(54) ему нужно и дату и день недели, имхо
57 Alex753
 
16.03.11
10:58
(54)Внизу указывается день недели а наверху должны быть даты
58 Evgenchik
 
16.03.11
10:58
а, сори, не прочел.
ПечДата и ПечДат
59 1Сергей
 
16.03.11
10:58
(55) а результат какой получается?
60 Alex753
 
16.03.11
11:03
61 1Сергей
 
16.03.11
11:04
(60) в конфигураторе по ячейке правой кнопкой -> Свойства -> Тип: Выражение
62 Alex753
 
16.03.11
11:12
Огромное спасибо )))
63 Alex753
 
16.03.11
11:54
Осталось малость))) Оформить все это безобразие в календарный вид, я так понимаю в шаблоне все это надо крутить
64 andrewks
 
16.03.11
13:19
блин, тут всё мировое сообщество Фукусиму обсуждает, а тебе нужен "календарный вид"
)))
65 Alex753
 
22.03.11
07:15
Всем привет, нужна вновь помощь, как сделать чтоб отчет выводился в календарном виде 7 на 5 а не в одну строку
66 PuhUfa
 
22.03.11
08:04
(65)
ВывестиСекцию()
ПрисоединитьСекцию()
67 Alex753
 
22.03.11
08:19
Спасибо, но я походу в шаблоне уже запутался что выводить надо
68 skunk
 
22.03.11
08:20
кошмар ... неделю штудировать сп
69 Alex753
 
22.03.11
08:22
Верю, вот некоторым приспичило в календарном виде, вывод в строку нет надо так...
70 DJ Anthon
 
22.03.11
08:55
сделай скриншот календарика и на форму положи )
71 Alex753
 
22.03.11
09:13
если было так все просто)))
72 Alex753
 
23.03.11
05:12
Все сделал, только даты почему то перестали отображаться, шпарит все сегодняшним числом
73 skunk
 
23.03.11
05:54
на инфостаре куча анологичного лежит