Имя: Пароль:
1C
 
Как определить четные дни или нечетные
0 URAL
 
09.06.09
00:17
при заполнении таблицы необходимо использовать четные или нечетные дни
например: заполняю таблицу за определенный период, установил флажок по четным дням (и нужно сейчас заполнить по четным дням)

можно ли реализовать подобное в 1с
1 IronDemon
 
09.06.09
00:19
У дня недели есть номер.
2 GROOVY
 
модератор
09.06.09
00:22
Если ДеньГода(Дата)%2 = 0 Тогда
//Четный
КонецЕсли;
3 Злобный Фей
 
09.06.09
00:23
(0) "можно ли реализовать подобное в 1с"
Категорически нет. Тут необходимо что-то посерьезнее. Осмелюсь предложить SAP R/3
4 Злобный Фей
 
09.06.09
00:23
(2) Ну вот, всё испортил
5 URAL
 
09.06.09
00:27
SAP R/3 тоже хорошая программа, на мой взгляд 1с далеко до SAP R/3
6 URAL
 
09.06.09
00:39
(2) Спасибо
7 Птица
 
09.06.09
01:18
как опредеить четность дня? четность дня недели? даты месяца? порядкового номера дня в году?
9 Hard man
 
09.06.09
01:38
(8) Заканчивай с героином.
10 skunk
 
09.06.09
06:41
(5)задавая вопросы вашего уровня, я бы воздержался оценивать программы
11 IPx2
 
09.06.09
07:32
Бугага... (5) после (0) это ПЯТЬ! Пиши еще!
12 у лю 427
 
09.06.09
07:50
тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  
тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  
тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....  тук-тук.....
13 Chai Nic
 
09.06.09
07:56
А мне как-то сон приснился, что я забыл как пишутся цифры. Вот это кошмар, не то что четность/нечетность! :)
14 у лю 427
 
09.06.09
07:59
(13) это фигня... мне приснилось, что я пишу по арабски...
15 URAL
 
20.06.09
05:08
Если ДеньГода(Дата)%2 = 0 Тогда
//Четный
КонецЕсли;

Вариант не срабатывает когда заполняю год, если месяц нечетный то и даты выводит нечетные, с четными то же самое
16 GROOVY
 
модератор
20.06.09
05:48
А другие функции попробовать не судьба?
17 URAL
 
20.06.09
06:22
Например???
18 kn
 
20.06.09
06:54
Функции работы с датой в СП - выбири подходящую...
19 URAL
 
20.06.09
14:59
Может кто на примере отразит, не могу разобратся
20 Один С
 
20.06.09
15:14
Если ДеньНедели(Дата)%2 = 0 Тогда
  //Четный
КонецЕсли;
21 URAL
 
08.07.09
07:05
Для тех кому понадобиться решение

Если Цел(День(Период)/2) = День(Период)/2 Тогда
Сообщить("ЧЕТНЫЙ");
КонецЕсли;

либо

Если День(Дата)%2 = 0 Тогда
Сообщить("ЧЕТНЫЙ");
КонецЕсли;
22 skunk
 
08.07.09
07:16
упал ... целый месяц на поиск решения... после этого в (5) полное бугага
23 dk
 
08.07.09
07:21
ндя, ветку в юмор
24 NcSteel
 
08.07.09
08:35
АААААААААААААА, еще же не пятница.
25 ptiz
 
08.07.09
08:43
Если Найти("02468", Прав(Формат(Дата, "ДФ=D"), 1)) > 0 Тогда
   Сообщить("ЧЕТНЫЙ");
КонецЕсли;
26 Ненавижу 1С
 
гуру
08.07.09
08:45
Если Число(Сред(Формат(Д,"ДФ=dd.MM.yyyy"),2,1))%2=0 Тогда
27 MRAK
 
08.07.09
08:50
(21) на Инфостарт выложи обязательно.
28 GedKo
 
08.07.09
09:01
(21) благодетель! спасибо!!
29 НЕА123
 
08.07.09
09:51
да ну...
сложно как-то все... деление, остаток от деления...

функция ДеньЧетный(Дата)

 Д = НачалоДня(Дата);
 Д2 = НачалоМесяца(Дата);
 Рез = Ложь;

 Пока Д <> Д2 Цикл
    Д2 = Д2 + 86400;
    Рез = НЕ Рез;
 КонецЦикла;

 Возврат Рез;

КонецФункции
30 URAL
 
08.07.09
10:22
бандерлоги, ша в кусты
31 Лефмихалыч
 
08.07.09
11:57
ветку в хумор
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший