![]() |
Генерация произвольных дат. Добрый день! Для решения экзаменационной задачи необходимо заполнить произвольными датами дни рождения: В ДЕМО-базу где имеется Справочник "Контактные лица" Запросом выбираю в таблицу данные контактных лиц и их дату рождения, затем надо заполнить их произвольными датами (рождения). Не могу сообразить как сделать генерацию дат рождений контактных лиц и записать эти даты в базу. Кто-нибудь решал подобную задачу? Подскажите алгоритм. |
Пока решил задачу так: 1. Сделал запрос к данным: _________________________________________________________ ВЫБРАТЬ КонтактныеЛица.Ссылка, КонтактныеЛица.Наименование, КонтактныеЛица.ДатаРождения ИЗ Справочник.КонтактныеЛица КАК КонтактныеЛица _________________________________________________________ 2. Обработку результата сделал так: _________________________________________________________ НоваяДата = Дата('20010101'); ВыборкаДетальныеЗаписи = мРезультатЗапроса.Выбрать(); Сч = ВыборкаДетальныеЗаписи.Количество(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл ГСЧ = Новый ГенераторСлучайныхЧисел(2001); СлучайноеЧисло = ГСЧ.СлучайноеЧисло(1, 10100000); Сч = Сч + СлучайноеЧисло; Объект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект(); Объект.ДатаРождения = Дата(НоваяДата + СлучайноеЧисло + Сч ); Объект.ОбменДанными.Загрузка = Истина; Объект.Записать(); КонецЦикла; _____________________________________ кое-что интересное подчерпнул тут: [url]https://infostart.ru/1c/articles/57305/[/url] |
Зачем обращаться к базе, если все равно используете ГСЧ ? С помощью ГСЧ и генерите ДД, ММ, ГГГГ. диапазоны должны быть валидными, хотя для ДР наверное нет разницы :) |
Текущее время: 10:36. Часовой пояс GMT +3. |