Здравствуйте уважаемые эксперты! Являюсь новичком в программирование на 1с и при создание собственной "тестовой" конфигурации" появился вопрос.
У справочника ЧленыСемьи есть у меня табличная часть - Биография, в ней есть реквизиты справочника - ДатаРождения (тип Дата) и Возраст(тип Число). Я хотел бы чтобы - когда будет заполнен реквизит ДатаРождения, в Возраст автоматически вставлялась "цифра возраста, например 23". По логике я должен ТЕКУЩУЮДАТУ (сегоднящий день и год) - ДатаРождения (07.10.1993) = Возраст
Если я напишу в Модуль формы Справочника следующий код:

&НаКлиенте
Процедура РасчетВозраста ()
  ТекущаяДата – РеквезитТабличнойЧасти.ДатаРождения = РеквезитТабличнойЧасти.Возраст ;
КонецПроцедуры

Как довести до ума это ?

а в "программирование" не на 1с тоже новичок?

(1) похоже гуру, или как там они на ближнем востоке называются...

в след году будешь открывать все элементы, заново возраст рассчитывать?

Оператор присваивания

Синтаксис:
<Назначение> = <Источник>;

(1) :)

(0)https://ru.wikipedia.org/wiki/Присваивание

(3) На регламент повесит, когда дойдет до этой главы ))))

Хорошо, подскажите как правильней сформулировать? Как правильно сделать в данном случае?

&НаКлиенте
Процедура РасчетВозраста ()
  РеквезитТабличнойЧасти.Возраст = ТекущаяДата – РеквезитТабличнойЧасти.ДатаРождения ;
КонецПроцедуры

(7) Ты возраст в чем меряешь?

(7) ну это вы в секундах получили. Если вам в днях надо, тогда

РеквезитТабличнойЧасти.Возраст = (ТекущаяДата – РеквезитТабличнойЧасти.ДатаРождения) / 60 / 60 / 24;

(9) Возраст людей обычно в годах измеряют

(9) И спрашиваешь такой обычно "А вам сколько дней?"

Да у меня Возраст это реквизит табличной части - Число, Длина 3, Точно 0, неотрицательное.

РеквезитТабличнойЧасти.Возраст = (ТекущаяДата – РеквезитТабличнойЧасти.ДатаРождения) / 60 / 60 / 24;

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

(9) + оговорюсь - моя ирония конечно не к вам)

(0) Разбей свою задачу на две части.
Сперва составь словесный алгоритм как бы ты вычислял свой возраст на сегодня.
Потом уже перекладывай в программу.

Да мне нужно чтобы в реквизите Возраст только год писался а не дни, вы правы

Год(ТекущаяДата()) – Год(РеквезитТабличнойЧасти.ДатаРождения)
и не хранить в реквизите справочника, а создать реквизит формы в который и писать и расчитывать при открытии формы

aleks_default спасибо за хороший совет!

(16) Если подсказывать, то хотя бы чуть-чуть близко к правде подсказывал...

(17) а если человек родился в декабре, сейчас ноябрь, формула правильный возраст посчитает?

(18)А че не так? Я конечно упростил, но вроде не наврал...

(16) добавь еще
- (Формат(ТекущаяДата(), "ДФ=MMdd") < Формат(РеквезитТабличнойЧасти.ДатаРождения, "ДФ=MMdd"))

(20) Если ребенок родился 31 декабря, по этому алгоритму ему уже на следующий день год будет...

вот буквоеды

(23) Программисту как никому, надо на мелочи обращать внимание. Из-за одной ошибки космические корабли взрываются.

(24) и дети становятся стариками

Для собственной даты рождения рассмотрите такие варианты (в текущем году):
- текущий месяц меньше;
- текущий месяц больше;
- текущий месяц тот же:
  - текущий день меньше;
  - текущий день больше;
  - текущий день тот же.

РАЗНОСТЬДАТ(ТекущаяДата(), ДатаРождения, "ГОД")

ВОт из типовой:
        |    ВЫБОР
        |        КОГДА ГОД(ВыборкаДляСтавки.Сотрудник.Физлицо.ДатаРождения) = 1
        |            ТОГДА 0
        |        ИНАЧЕ &ДатаАктуальности_Год - ГОД(ВыборкаДляСтавки.Сотрудник.Физлицо.ДатаРождения) + ВЫБОР
        |                КОГДА МЕСЯЦ(ВыборкаДляСтавки.Сотрудник.Физлицо.ДатаРождения) * 100 + ДЕНЬ(ВыборкаДляСтавки.Сотрудник.Физлицо.ДатаРождения) > &ДатаАктуальности_Месяц * 100 + &ДатаАктуальности_День
        |                    ТОГДА -1
        |                ИНАЧЕ 0
        |            КОНЕЦ
        |    КОНЕЦ КАК Возраст

(27) (28) вы гвозди в стену тоже через запрос забиваете?

(29) ты чего умное сказать хотел или ищешь повод посра_ться? у меня есть это было в виде запроса, я сюда кинул в виде примера, мысль понять можно. переписать это для клиента надеюсь ума хватит. если не хватит - не понятно зачем вообще за программирование браться

(27) читай (22)

вот мой второй вариант

Функция ПолучитьВозраст(ДатаРождения) Экспорт
    
    ТекДата = ТекущаяДата();
    ТекущийМесяц = Месяц(ТекДата);
    РожденияМесяц = Месяц(ДатаРождения);
    ТекущийГод = Год(ТекДата);
    РожденияГод = Год(ДатаРождения);
    ТекущийДень = День(ТекДата);
    РожденияДень = День(ДатаРождения);
    
    // Число полных лет между текущей датой и датой рождения
    
    Если Не ЗначениеЗаполнено(ДатаРождения) Или (ДатаРождения > ТекДата) Тогда
        Возврат 0;
    Иначе
        Если ТекущийГод = РожденияГод Тогда
            Возврат 0;
        Иначе
            Если ТекущийМесяц < РожденияМесяц Тогда
                Возврат ТекущийГод - РожденияГод - 1;
            ИначеЕсли ТекущийМесяц > РожденияМесяц Тогда
                Возврат ТекущийГод - РожденияГод;
            ИначеЕсли ТекущийМесяц = РожденияМесяц Тогда
                Если ТекущийДень < РожденияДень Тогда
                    Возврат ТекущийГод - РожденияГод - 1;
                Иначе
                    Возврат ТекущийГод - РожденияГод;
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    
КонецФункции

Возраст = Цел((ТекущаяДата()-ДатаРождения)/КолвоСекВГоду);

(33) КолвоСекВГоду примерно Pi*10^7.

(34)+ Нужно еще високосные учитывать.

ОФФ: пятнично

(35) Это такой намек как не повезло родившимся 29 февраля?

(37)+ зато какая экономия на ДР, а подарки можно чтобы накапливали (за пропущенные не високосные) к предстоящему в будущем торжеству

Одного не могу понять, зачем в реквизитах хранить рассчитываемый показатель?

(39) В оригинале это такая замена для РС или доков для случая сохранения данных созданных на некие даты "резюме"

(0)посмотри как в типовом зупе стаж считается...

Скопируй из зупа необходимые функции...

(41) он присваивать не умеет, а вы его в зуп отправляете

Функция ПолучитьВозраст(Знач ДатаРождения, Знач ДатаАктуальности, Возраст = 0) Экспорт
    
    ДатаРождения = НачалоДня(ДатаРождения);
    ДатаАктуальности = НачалоДня(ДатаАктуальности);
    
    Возраст = 0;
    
    Если ЗначениеЗаполнено(ДатаРождения) И ЗначениеЗаполнено(ДатаАктуальности) И ДобавитьМесяц(ДатаРождения, 12) <= ДатаАктуальности Тогда
        
        Возраст = Год(ДатаАктуальности) - Год(ДатаРождения);
        
        Если Возраст > 0 Тогда
            
            Если ДобавитьМесяц(ДатаРождения, 12 * Возраст) > ДатаАктуальности Тогда
                
                Возраст = Возраст - 1;
                
            КонецЕсли;
            
        КонецЕсли;
        
    КонецЕсли;
    
    Если Возраст = 0 Тогда
        
        ВозрастВВидеТекста = "";
        
    Иначе
        
        ВозрастВВидеТекста = ПолучитьВозрастВВидеТекста(Возраст);
        
    КонецЕсли;
    
    Возврат ВозрастВВидеТекста;
    
КонецФункции

эту же самую идею можно перетащить в запрос.

(42) Это было особенно прикольно.Новые одинесники на подходе!

Функция ПолучитьВозрастВВидеТекста(Знач Возраст)
    
    ВозрастВВидеТекста = Строка(Возраст) + " " + ПолучитьПодписьИзЧисла(Возраст, "год, года, лет, м");
    
    Возврат ВозрастВВидеТекста;
    
КонецФункции

От новичка даже спасибо нет :)

(47) всем реквезитам реквезет!