Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
26 сен 2021, 09:55

Работа с датой (год, года, лет). НЕLP!

Автор Алексей_1985_06, 15 дек 2019, 16:24

0 Пользователей и 1 гость просматривают эту тему.

Алексей_1985_06

Добрый день! Подскажите как убрать нули (файл во вложении), или может есть более лучший способ как написать количество лет? Конфигурация самописная (8.3. УФ).:befhbt:


&НаКлиенте
Процедура  РасчетВозраста()
Лет = 0;
Месяцев = 0;
Дней = 0;
ДатаРождения = Объект.ДатаРождения; 
Пока ДатаРождения <= ТекущаяДата() Цикл
ДатаРождения = ДобавитьМесяц(ДатаРождения,1);
Месяцев = Месяцев + 1;
КонецЦикла;
Месяцев = Месяцев-1;
Лет = Цел(Месяцев/12);
Месяцев = Месяцев-Лет*12;
Дней = Цел((ТекущаяДата() - ДобавитьМесяц(ДатаРождения,-1))/86400);

//     ПОМОГИТЕ! ВОТ ЗДЕСЬ ЧТО ТО НУЖНО ДОПИСАТЬ, НЕ МОГУ РАЗОБРАТЬСЯ
Объект.Возраст = Строка(Лет)+ " (" + ЧислоПрописью(Лет, , "год,года,лет, м, , ") + ")";
КонецПроцедуры

wise

(0) велосипед УЖЕ изобрели... :P
ЧислоПрописью(ПеременнаяПрописи,,"год,года,лет,м , , , , , 0")
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

Алексей_1985_06

Цитата: wise от 15 дек 2019, 22:27
(0) велосипед УЖЕ изобрели... :P
ЧислоПрописью(ПеременнаяПрописи,,"год,года,лет,м , , , , , 0")

Большое спасибо!!!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск