Собственно такой вопрос. На в скидку, что приходит в голову сравнивать дату с 12-тью концами месяцев. Может существует более элегантное решение?

Если следущая дата первое число, то это посл.день месяца

производственный календарь уже отменили?

Если КонецДня(МояДата) = КонецМесяца(МояДата) Тогда

этоконецмесяца = введеннаядата = конецмесяца(введеннаядата)

этоконецмесяца = конецдня(введеннаядата) = конецмесяца(введеннаядата);

Если Месяц(Дата + 1) > Месяц(Дата) Тогда

вы чо? КонецМесяца = КонецДня(дата) = КонецМесяца(Дата)

(2) это УТ. Там нет календаря.

Хватит позориться.
Правильный ответ в (3).

(0) Жесть. Такие вопросы и Стаж: 5 г. 1 мес. :)

(0) да, не забудь учесть високосные годы для февраля )) ЛОЛ

а мне (7) нравится - красивше, без всяких Если.

(10) Неформализовано понятие в сабже "конец месяца".
Если "конец месяца" - это "последний день месяца", то правильный (первый правильный) в (3).
Если конец месяца - это последняя секунда (т.е., в интерпретации системной функции КонецМесяца), то (4) - тоже правильный.
:-P

(12) +1

(10) Так это пятничная ветка такая.

(12) тогда лучше так :

Функция ЭтоКонецМесяца (Дата)
  Возврат КонецДня(дата) = КонецМесяца(Дата);
КонецФункции

Давайте конкурс откроем - кто интереснее и увлекательнее выполнить поставленную задачу. Использовать функции КонецМесяца и Месяц- нельзя!

(15) это не уменьшает твой косяк в (6) ;)

http://www.en.kolobok.us/smiles/artists/cherna/Cherna-facepalm.gif

(16) Паразитируя на (1):
ЭтоКонецМесяца=День(КонецДня(Дата)+1)=1
Или более загадочно
ЭтоКонецМесяца=Не(День(КонецДня(Дата)-1)

:)

ЭтоКонецМесяца=?(КонецДня(ТекущаяДата())+1 = НачалоМесяца(КонецДня(ТекущаяДата()+1)), Истина, Ложь);

(12) За (7) убивать надо.

(16) самое элегантное у ТС в (0) 12 сравнений с 12-ю концами месяцев.

(21) что там неверно ?

(19) Пропустил скобку ЭтоКонецМесяца=Не(День(КонецДня(Дата))-1)

(17) там я конец года только не учёл=)

(21) я жить хочу.
мКонецМесяца = КонецДня(дата) = КонецМесяца(Дата)

PR злой сегодня :)

(16) Имхо, победит метод ТС:
Если дата = ПервыйКонец тогда
...
ИначеЕсли дата = ВторойКонец тогда
...
и т.д., и т.п. :))))

(16) вот без месяцев

Если День(КонецДня(Дата)) > День(КонецДня(Дата) + 1)

(28) Нужно стремиться к совершенству! Должен быть вариант еще лучше!

(28) так сложно т.к. високосные и т.п., лучше
Если дата+1= ПерваяДатаПервогоМесяца тогда
...
ИначеЕсли дата+1 = ПерваяДатаВторогоМесяца тогда
...

(23) Для того, чтобы понять это выражение, нужно напрячь мозг.
Причем совершенно без нужды.
Читабельность и простота кода очень важны.

(31) Так читабельней:

Если дата = ПерваяДатаПервогоМесяца-1 тогда
...
ИначеЕсли дата = ПерваяДатаВторогоМесяца-1 тогда

...

(27) Да ладно, я всегда такой :))
Суровый, но справедливый :))

(32) фу ты, я уж думал что ругаешся на использование переменной с именем предопределённой функции. не надо там ничо напрягать

//на конкурс:

НашГод = Год(НашаДата);
ЭтоВисокосныйГод = (НашГод%4=0) и (НашГод%100<>0 или НашГод%400=0);
Массив = Новый Массив();
Массив.Добавить(31);
Массив.Добавить(28 + Число(ЭтоВисокосныйГод);
Массив.Добавить(31);
Массив.Добавить(30);
Массив.Добавить(31);
Массив.Добавить(30);
Массив.Добавить(31);
Массив.Добавить(31);
Массив.Добавить(30);
Массив.Добавить(31);
Массив.Добавить(30);
Массив.Добавить(31);
С=0;
Для й=1 по 12 Цикл
 Массив[й]=Массив[й]+С;
 С = Массив[й];
КонецЦикла;
ЭтоКонецМесяца = Массив.Найти(ДеньГода(НашаДата))<>Неопределено;

(35) На это мне плевать.
Если из-за этого не будет работать код, то тебя суровая реальность ударит больно об стол лицом.
А вот за нечитабельный код никто не ударит, а жаль :))

без Концов

мКонецМесяца = Месяц(Дата) <> Месяц(Дата+86400);

(32) ИМХО, тот случай здесь, когда такая конструкция допустима. Разве переменную-результат назвать получше.

Если Найти(Строка(ВведеннаяДата),"31.01")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"28.02")>0 ИЛИ (Найти(Строка(ВведеннаяДата),"29.02")>0 И ГодВисокосный()) Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.03")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"30.04")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.05")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"30.06")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.07")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.08")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"30.09")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.10")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"30.11")>0 Тогда
ЭтоКонецМесяца=Истина;
ИначеЕсли Найти(Строка(ВведеннаяДата),"31.12")>0 Тогда
ЭтоКонецМесяца=Истина;
Иначе
ЭтоКонецМесяца=Ложь;
КонецЕсли;

(36) Какая интересная идея!

(39) Не знаю ни одного случая когда стоит использовать выражение "а = б = в".
Всегда нужно писать "Если Тогда" или если нужно в одну строку, то "?()".

красивше (7) оформить так:

НашКонецМесяца = (КонецДня(Дата)=КонецМесяца(Дата));

(42) гоните, вы, батенька

(0) На в скидку
Дальше не читал

(43)
учитывая требование (42)

НашКонецМесяца = НЕ (КонецДня(Дата)<>КонецМесяца(Дата));

>>Не знаю ни одного случая когда стоит использовать выражение "а = б = в".
ТекСтрока.Отметка = ТекСтрока.БанковскийСчет = Константы.ОсновнойБанковскийСчет;

(44) Гонят стадо на водопой, а я промышленные стандарты говорю.

(42) то есть ты считаешь, что вместо:

А = (Б=В);

лучше писать так?

А = ?(Б=В,Истина,Ложь);

(42) в типовых же используется:
   ЭтоВозврат        = (СтруктураПараметров.РасчетыВозврат = Перечисления.РасчетыВозврат.Возврат);

(48) "промышленные"? ну-ка, ну-ка - разверни тему

скобки да, надо чтоб по феншую

(46) Вас рядом с (7) рядом поставят, у одной стенки :))

(48) у каждой промышленности - свои стандарты
у кого то - табуляция = два пробела
(49) +1

по конструкции А=Б=В легко отличить профессионального программиста от недокодера и копрокодера.

(47) И чё?

(53) разрабов типовых тоже поставиш?

(56) если твое образование не позволяет познать глубину кода, тогда "и всё".

(56) Роман, то что твои стандарты отличаются от возможностей языка - ничего не значит.

(56) напиши ка, как по твоему должен выглядеть код?
Если ТекСтрока.БанковскийСчет = Константы.ОсновнойБанковскийСчет Тогда
ТекСтрока.Отметка = Истина
Иначе
ТекСтрока.Отметка = Ложь
КонецЕсли;
так???
вот за это к стенке надо ставить.

(49) Нет
Если Б = В Тогда
   А = Истина;
Иначе
   А = Ложь;
КонецЕсли;

А ?() нужно использовать крайне редко, когда иначе не получится.
Например текст запроса на 5 экранов и нужно в зависимости от какого-то условия вставить один или другой текст.

(50) Типовые тоже разные люди пишут, попадаются и среди них колхозники.

рукалицо.жпг
(*ушел из этой ветки*)

(51) Что тебе развернуть?

"а=(б=ц)" лучше чем "Если б=ц" тем, что инициализируется переменная, которую потом можно использовать.
Если результат выражения нужен один раз в условии, то, конечно, лучше вариант с Если.

(61) мда... это что-то в духе такого:

Если Флажок=Истина Тогда
 ЭлементыФормы.ПолеВвода.Доступность = Ложь;
Иначе
 ЭлементыФормы.ПолеВвода.Доступность = Истина;
КонецЕсли;

ты именно так предлагаешь писать?

(61) Вот это как раз трудночитаемый код с бессмысленными операторами вместо одного ;(

Вот если бы в 1С было нормальное различие знаков для операций сравнения и присваивания - то еще можно было бы о чем-то говорить. А так - a = b = c чисто логически - это сделать все 3 переменных равными друг другу. А то, что 1С с какого-то бодуна в одном случае сравнивает, а в другом присваивает не способствует логичности и не по фен-шую.

(68) если внимательно прочитать синтаксис языка, то таких вопросов не возникает
и не надо тут делать аллюзию на Си
хотя конечно удобнее было бы, но бейсик же живет с этим

(60) Именно так.

(66) Не путай теплое с мягким.
В этом случае правильнее
ЭлементыФормы.ПолеВвода.Доступность = НЕ Флажок;

Хотя если Флажок может быть не булевым, а например Неопределено, то да, верно именно с Если.

(71) ун тогда не понимаю чего ты упираешься с А=Б=В;

проверка на равенство такой же логический оператор как и НЕ

Давайте еще вспомним про безграмотность и орфографические ошибки в типовых.

(67) На языке 1С не стоит программировать как на C++.
Тут в миллион раз важнее читабельность, простота и надежность кода, нежели компактность и экономия ресурсов компьютера.

(74) легче прочитать А=Б=В чем (61) для номральных людей, имхо

(72) А я и не говорю, что это не сработает или это что-то совершенно другое.
Я говорю про то, что это менее читабельно и сложнее, чем вариант с Если.

(73) Ну не все в школе хорошо учились, да.

(69) Вот из-за разницы в поведении в конкретном языке такая конструкция не по фен-шую.

(75) Это только пока ты программистом не станешь.

(78) бгг

полфорума не программисты, только люди пишущие всегда Если Тогда достойны

(75) Для номральных может быть.
А для нормальных думаю, что проще Если.
Особенно если речь не про "А=Б=В", а про чуть более длинные выражение, например "ТекущиеДанные.Флажок=ОбщийМодуль.ПолучитьЧтоТоТам(ТекущиеДанные.Сумма, Истина)=ОпределитьКакойНитьТамПоказатель(Константы.МояКонстанта.Получить(), ТекущиеДанные.ДокументПланирования.Дата, ТекущаяДата())".

(81) есно для коротуих выражений применять, читабельность не страдает

(80) Ты точно не программист, иначе бы понял о чем речь. Ты просто кодер.

(81) в приципе можно согласиться... одна функция на одной строке должна быть

(83) Фигню же несешь

(82) А когда выражение бывает наращивается, то переписывать код?

(83) конечно, тока ты программист

был бы еще нормальный оператор Switch...Case, было бы еще чуточку удобнее писать

(86) Разумеется. В каждый момент времени должен быть выбран оптимальный варинт.

(84) одна функция на одной строке несет в себе в том числе чисто практическую ценность, так проще отлаживать.

(85) Он тебе все правильно говорит.

(89) Это называется самому себе создать сложности на ровном месте, а потом героически с ними бороться :))

По моему тема ушла в срач. Ухожу из ветки (с)
:)

(85)(87) Вы в курсе, что программист, хотя, как правило, и знает несколько языков программирования, но также он вообще может не знать ни одного языка программирования? ;) Язык программирования для него лишь инструмент реализации алгоритма. А потому он очень неохотно использует конструкции, имеющие в разных языках программирования разный смысл.

(94) некоторые даже с ума сходят от NULL

велкам [А=Б=В] vs [Если Б=В Тогда А=Истина]

- Почему, ты ненавидишь 1С?
- Она меня до психушки довела!

:)

(94) я в курсе, видел таких "программистов", в 1с даже на англицком пишут, вот тебе читаемость кода супер. Я использую в конкретном языке свои нюансы. Использую больше возможностей

А победитель в конкурсе - вариант(36)
Согласны?

100

(99) варианта с Запросом не было ещё)

(101) Да, ты прав!
Ждем вариантов с запросом!

ВЫБРАТЬ
   ВЫБОР
       КОГДА КОНЕЦПЕРИОДА(&Дата, ДЕНЬ) = КОНЕЦПЕРИОДА(&Дата, МЕСЯЦ)
           ТОГДА ИСТИНА
       ИНАЧЕ ЛОЖЬ
   КОНЕЦ КАК результат

(103) Ну это как-то уже банально...
Хочется чего-то извращенного! :-)

ВЫБРАТЬ
   &ДатаНач КАК УстановленныйДень,
   МАКСИМУМ(ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, Цифры4.Цифра * 1000 + Цифры3.Цифра * 100 + Цифры2.Цифра * 10 + Цифры1.Цифра * 1)) КАК ПоследнийДень,
   МЕСЯЦ(ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, Цифры4.Цифра * 1000 + Цифры3.Цифра * 100 + Цифры2.Цифра * 10 + Цифры1.Цифра * 1)) КАК Месяц
ИЗ
   (ВЫБРАТЬ
       0 КАК Цифра
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       1
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       2
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       3
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       4
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       5
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       6
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       7
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       8
   
   ОБЪЕДИНИТЬ ВСЕ
   
   ВЫБРАТЬ
       9) КАК Цифры1
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
           0 КАК Цифра
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           1
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           2
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           3
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           4
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           5
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           6
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           7
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           8
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           9) КАК Цифры2
       ПО (Цифры2.Цифра * 10 + Цифры1.Цифра * 1 <= РАЗНОСТЬДАТ(&ДатаНач, КОНЕЦПЕРИОДА(&ДатаНач, МЕСЯЦ), ДЕНЬ))
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
           0 КАК Цифра
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           1
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           2
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           3
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           4
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           5
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           6
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           7
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           8
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           9) КАК Цифры3
       ПО (Цифры3.Цифра * 100 + Цифры2.Цифра * 10 + Цифры1.Цифра * 1 <= РАЗНОСТЬДАТ(&ДатаНач, КОНЕЦПЕРИОДА(&ДатаНач, МЕСЯЦ), ДЕНЬ))
       ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
           0 КАК Цифра
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           1
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           2
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           3
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           4
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           5
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           6
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           7
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           8
       
       ОБЪЕДИНИТЬ ВСЕ
       
       ВЫБРАТЬ
           9) КАК Цифры4
       ПО (Цифры4.Цифра * 1000 + Цифры3.Цифра * 100 + Цифры2.Цифра * 10 + Цифры1.Цифра * 1 <= РАЗНОСТЬДАТ(&ДатаНач, КОНЕЦПЕРИОДА(&ДатаНач, МЕСЯЦ), ДЕНЬ))

СГРУППИРОВАТЬ ПО
   МЕСЯЦ(ДОБАВИТЬКДАТЕ(&ДатаНач, ДЕНЬ, Цифры4.Цифра * 1000 + Цифры3.Цифра * 100 + Цифры2.Цифра * 10 + Цифры1.Цифра * 1))

УПОРЯДОЧИТЬ ПО
   ПоследнийДень

(99) Там скобочки не хватает как минимум.

(105) поле месяц можно убрать конечно и т.д.

(102) Если конкурс еще закончен, примите перл:

Попытка
  ВременнаяПеременная=Дата(Год(ИсхДата),Месяц(ИсхДата),День(ИсхДата)+1);
  ЭтоКонецМесяца=Ложь;
Исключение
  ЭтоКонецМесяца=Истина;
КонецПопытки

еще *НЕ закончен ;)

(11) "не забудь учесть високосные годы для февраля"
мне вчера прислали письмо, в котором сообщили об акции, действующей до 29/02/2013...

(108) - Reset, это шедевр! :)

(108) - Здорово!