Наткнулся в одном из отчетов.

Функция ПредыдущаяДата(ИсходнаяДата)
   
   ИсхДата_Число = ДатаЧисло(ИсходнаяДата);
   ИсхДата_Месяц = ДатаМесяц(ИсходнаяДата);
   ИсхДата_Год =    ДатаГод(ИсходнаяДата);
   
   Если ИсхДата_Число = 1 Тогда
       Если ИсхДата_Месяц = 1 Тогда
           Результат = Дата(ИсхДата_Год-1, 12, 31);
       Иначе
           Результат = КонМесяца(Дата(ИсхДата_Год, ИсхДата_Месяц-1, ИсхДата_Число));
       КонецЕсли            
   Иначе    
       Результат = Дата(ИсхДата_Год, ИсхДата_Месяц, ИсхДата_Число-1);
   КонецЕсли;    
   
   Возврат Результат;    
   
КонецФункции

Ошибка в ДНК

работает - не трожь! (с)

смысл: вычесть 1 день из даты

Ну, мне тоже кажется, что ошибка в ДНК, хотя остальной код вроде достаточно приличный.

Скорее всего имелось ввиду ДОбавитьМесяц(ИсходнаяДата,-1)

не помню как в 7.7. Но чел хотел сделать что то вроде
НчалоДня(НачалоДня(Дата)-1)

просто не знал как реалзиовать.

(0) нормально, чел получает бабки в зависимости от количества строк кода )

Если первое число, то берет последний день предыдущего месяца

Может автор просто не знал, что допустима арифметика сложения и вычитания между датой и числовым значением.

В(5) ошибся, скорее всего как в (3)

хотя витиевато конечно:-)

Функция ПредыдущаяДата(ИсходнаяДата)
   
   //ИсхДата_Число = ДатаЧисло(ИсходнаяДата);
   //ИсхДата_Месяц = ДатаМесяц(ИсходнаяДата);
   //ИсхДата_Год =    ДатаГод(ИсходнаяДата);
   //
   //Если ИсхДата_Число = 1 Тогда
   //    Если ИсхДата_Месяц = 1 Тогда
   //        Результат = Дата(ИсхДата_Год-1, 12, 31);
   //    Иначе
   //        Результат = КонМесяца(Дата(ИсхДата_Год, ИсхДата_Месяц-1, ИсхДата_Число));
   //    КонецЕсли            
   //Иначе    
   //    Результат = Дата(ИсхДата_Год, ИсхДата_Месяц, ИсхДата_Число-1);
   //КонецЕсли;    
   //
   //Возврат Результат;    
   
   Возврат ИсходнаяДата-1;
   
КонецФункции

Скорее всего, у автора не было ЖКК, и он осваивал 1с методом тыка

(13) Скорее всего у автора частое заболевание - Восьмёрка головного мозга

Я наткнулся на эту функцию, сказал что то вроде вРотМнеНоги и выложил на мисту, может я чего то не понимаю в этом шедевре. ) По контексту отчета надо было получить предыдущую дату конца периода.

(14) Вряд ли. Я прямо так себе и представил программиста, вынужденного писать на 1сv7 и лишенного документации.. вынужденного пользоваться синтакс-помощником. А в нём нет полного описания языка.

(16) СП обычно вполне хватает.
отладчик тоже никто не отменял.
А ЖКК ненамного полнее СП.

(0) Жесть, к чему все эти сложности?

(17) Где в СП написано, что к дате можно прибавлять/вычитать число? :)
Да и в ЖКК есть многое, чего нет в СП. Во многих статьях СП так и написано "подробности в описании языка"

(0) а где часы минуты и секунды?

(20) Восьмерочник детектед )

(21) в 7ке тоже есть;)

(19) +1
Автор изобрел велосипед, ориентируясь на процедуры и функции имеющиеся в СП.

(22) в дате?

Кажется никто не обратил внимания, что иногда отнимается 1 день, а иногда - 1 месяц.

(25) а иногда год, вот только нафига?

(22) нету там. ни в составе даты ни отдельно
(25) все там норм... КонМесяца не пропустили случаем?

(25)(26) лол  при вычетании месяца и год,  конецмесяца и конецгода случае если это 1е счисло месяца и года вы и не заметили

(25) месяц декрементируется если число первое, всё как положено

(27) КонецГода там нет если чо :)

(27) а в регистре документы  каким временем проводятся?

(30) к (28)

(32) угу на автомате написал. Но там явно прописано 12 31

(28) И правда, пропустил. Ну тогда и правда оплата за строки.

(31) в регистре документы проводятся позицией документа

(28) я все заметил, откуда такие выводы?

(27) это дело к типу "Дата" не имеет никакого отношения... и работой с датой... архитектурно оно хранится в виде строки...

(37) да шо я седня все мажу то... к (31) это все

Семёрошники изголодались по дятлам. Один появится, так сразу налетают как коршуны :)

(35) казалось бы  причем здесь
ПолучитьВремя(<Часы>,<Минуты>,<Секунды>)

(40) В регистре-то? Да, вообще не при чём

(41) я так не думаю

(15) всё правильно: увидел индусский код - сразу выкладывай на мисту, его тут так не хватает;
а заодно и своё ЧСВ поднимешь.

(42) http://savepic.ru/index.php

*(42) http://savepic.ru/3229446.png

(40) И? Какое это отношение имеет к (0)? Как такого времени в клюшках нет. Можно получить текущее время (в виде строки и/или отдельно часах, минутах, секундах) и можно получить/установить время документа (опять таки отдельно в часах, минутах, секундах)

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

(12) Все гораздо проще
ИсходнаяДата = ИсходнаяДата - 1;
функция не нужна :)

(47)>>Я не считаю себя крутым программером, более того, я им и не являюсь

Пафосно :)

(47) а то ты никогда таких "алмазов" не высирал? :-)
Я вот недавно в гараже нашел пачку листингов студенческих времен. Там такой наивняк... Прикольно через 20 лет смотреть (хоть на сишный код, хоть на ассемблерные)

(43) это что? продолжим тему Я даже не представляю как это назвать...
?

(0) Может такой код работает быстрее. В семерке такое бывало.