Задача, обратная распространенной теме о нахождении неизвестного стажа на известную дату:

Имеются сотрудники, у них известен стаж на определенную дату, такого вида:

01.04.2012 Иванов:  3 г. 5 мес. 17 дн.

Нужно узнать, когда у сотрудника будет 5 лет стажа, когда будет 10 лет и т.п.

Что-то я парюсь, дайте намек, как сделать, что от чего отнять и прибавить. И если просто арифметически прибавлять - то не будет ли искажение даты из-за високосных годов и праздников?

(0) Зафиксируй дату начала стажа на основе имеющихся данных.
Теперь проблема имеет типовое решение

месяцы добавляй

по имеющемуся стажу вычисляем дату начала стажа

рассчитываем секунды на период прогрнозного стажа

прибавляем секудны к начальной дате

получем дату окончания прогнозного стажа

все

(3) А почему секунды прибавляем в конце, а не года?

ДобавитьМесяц(<Дата>, <Число месяцев>) религия не позволяет?

(5) Надо с точностью до дня.

Вот нарисовал, жду комментариев:-)

Процедура РассчитатьСтажиНажатие(Элемент)
   Выборка = Справочники.Стажи.Выбрать();
   Пока Выборка.Следующий() Цикл
       ДатаНачалаСтажа = Дата(2012, 4, 1) - Выборка.Лет * 365 * 86400 - Выборка.Месяцев * 30 * 86400 - Выборка.Дней * 86400;
       ДатаПятьЛет = ДатаНачалаСтажа + 5 * 365 * 86400;
   КонецЦикла;    
КонецПроцедуры

Правильно ли умножать на 30, когда высчитываю месяцы?

(8) и на 365 зря умножаешь

(6) Ты упоротый? К дате начала стажа прибавляешь стаж в годах, умноженный на 12, плюс месяцы, потом дни*86400. А в (7) херня какая-та.

во первых надо сразу избавиться от дней (отмотать до полного месяца). т.е. смотреть надо на 13.03.2012, когда стаж будет 3г 5 мес.
Далее, кол-во месяцев в годе неизменно, бери разницу между искомым стажем (5 лет) и текущим 3г5м = 1г7м.= 19 мес. а дальше как указал (5). все!

Че-та вы сложные какие-та... Разжую:

НужнаяДата = ДобавитьМесяц(ИсходнаяДата, ЛетСтажа*12+МесяцевСтажа)+ДнейСтажа*86400;

Усё.

(12) - а что будет в переменной ДнейСтажа?

(10) Я это и делаю - мне нужно узнать, когда будет 5 лет стажа от даты начала стажа.

(12) И что это даст? В примере получится:

НужнаяДата = 3 * 12 + 5 + 17 * 86400. Ну и в итоге просто получится удвоенный стаж.

(14) Тогда просто ДобавитьМесяц(ИсходнаяДата, 5*12) И всё.

+(16) Только в (7) ДатаНачалаСтажа у тебя тоже неправильно рассчитана :))

Критикуйте:


Выборка = Справочники.Стажи.Выбрать();
   Пока Выборка.Следующий() Цикл
       ДатаОкругленнаяБезДнейСтажа = Дата(2012, 4, 1) - Выборка.Дней * 86400;
       ДатаНачалаСтажа = ДобавитьМесяц(ДатаОкругленнаяБезДнейСтажа, - (Выборка.Лет * 12 + Выборка.Месяцев));  
       ДатаПятьЛет = ДобавитьМесяц(ДатаНачалаСтажа, 5 * 12);
       Сообщить(ДатаПятьЛет);
   КонецЦикла;

В справочнике "Стажи" числовые реквизиты - "Лет", "Месяцев", "Дней". Они забиты на дату 01.04.2012.

Гуру, дайте свой едкий комментарий по последнему коду))

Убейся ап стену, дятел. Забаньте меня, но я не мог это не сказать.

(21) От дятла слышал. Хочешь сказать, что ты, когда начинал программировать, слёту всё делал? Я вежливо попросил комментариев и советов. Или у вас в Кузне все такие хамы из-за экологии?

(18) в целом, правильно. Чисто с бытовой точки зрения)
Вот только правильно ли считать так стаж? Кадровики мне говорили (даже ссылку на какое-то постановление приводили), что в месяце надо считать 30 дней

(23) Вот я тоже в этом моменте методическом моменте сомневаюсь) На мой взгляд, функцией "ДобавитьМесяц" наиболее приближенная к реальности ситуация получается, так как добавляет не дни (которые в разных месяцах могут быть разными), а именно месяцы.

ПОСТАНОВЛЕНИЕ

от 24 июля 2002 г. N 555



ОБ УТВЕРЖДЕНИИ ПРАВИЛ

ПОДСЧЕТА И ПОДТВЕРЖДЕНИЯ СТРАХОВОГО СТАЖА

ДЛЯ УСТАНОВЛЕНИЯ ТРУДОВЫХ ПЕНСИЙ

VII. Порядок подсчета страхового стажа

35. Исчисление периодов работы, в том числе на основании свидетельских показаний, и (или) иной деятельности, а также иных периодов, предусмотренных пунктом 1 настоящих Правил, производится в календарном порядке из расчета полного года (12 месяцев). При этом каждые 30 дней указанных периодов переводятся в месяцы, а каждые 12 месяцев этих периодов переводятся в полные годы.