1С 8.3 Получить количество целых лет
Данные > Примеры кода 1С > 1С 8.3 Дата и время
Перейти в основной раздел:
Определяет количество целых лет в выбранном периоде в 1С 8.3 (типовая функция):
Функция КоличествоЦелыхЛет(ДатаНачала, ДатаОкончания) Экспорт
Если НЕ ЗначениеЗаполнено(ДатаНачала)
ИЛИ НЕ ЗначениеЗаполнено(ДатаОкончания)
Или ДатаОкончания <= ДатаНачала Тогда
Возврат 0;
КонецЕсли;
Результат = Год(ДатаОкончания) - Год(ДатаНачала);
Месяц1 = Месяц(ДатаНачала);
Месяц2 = Месяц(ДатаОкончания);
Если Месяц1 > Месяц2 Тогда
Результат = Результат - 1;
ИначеЕсли Месяц1 = Месяц2
И День(ДатаНачала) > День(ДатаОкончания) Тогда
Результат = Результат - 1;
КонецЕсли;
Возврат Результат;
КонецФункции
Если НЕ ЗначениеЗаполнено(ДатаНачала)
ИЛИ НЕ ЗначениеЗаполнено(ДатаОкончания)
Или ДатаОкончания <= ДатаНачала Тогда
Возврат 0;
КонецЕсли;
Результат = Год(ДатаОкончания) - Год(ДатаНачала);
Месяц1 = Месяц(ДатаНачала);
Месяц2 = Месяц(ДатаОкончания);
Если Месяц1 > Месяц2 Тогда
Результат = Результат - 1;
ИначеЕсли Месяц1 = Месяц2
И День(ДатаНачала) > День(ДатаОкончания) Тогда
Результат = Результат - 1;
КонецЕсли;
Возврат Результат;
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник