Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Генерация произвольных дат. (http://forums.kuban.ru/f1040/generaciya_proizvol-nyh_dat-9218528.html)

taras12 02.07.2023 00:01

Генерация произвольных дат.
 
Добрый день!

Для решения экзаменационной задачи необходимо заполнить произвольными датами дни рождения:

В ДЕМО-базу где имеется Справочник "Контактные лица" Запросом выбираю в таблицу данные контактных лиц и их дату рождения, затем надо заполнить их произвольными датами (рождения). Не могу сообразить как сделать генерацию дат рождений контактных лиц и записать эти даты в базу. Кто-нибудь решал подобную задачу? Подскажите алгоритм.

taras12 02.07.2023 03:18

Пока решил задачу так:
1. Сделал запрос к данным:

_________________________________________________________

ВЫБРАТЬ КонтактныеЛица.Ссылка, КонтактныеЛица.Наименование, КонтактныеЛица.ДатаРождения
ИЗ Справочник.КонтактныеЛица КАК КонтактныеЛица
_________________________________________________________

2. Обработку результата сделал так:

_________________________________________________________


НоваяДата = Дата('20010101');

ВыборкаДетальныеЗаписи = мРезультатЗапроса.Выбрать();

Сч = ВыборкаДетальныеЗаписи.Количество();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ГСЧ = Новый ГенераторСлучайныхЧисел(2001);

СлучайноеЧисло = ГСЧ.СлучайноеЧисло(1, 10100000);

Сч = Сч + СлучайноеЧисло;

Объект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();

Объект.ДатаРождения = Дата(НоваяДата + СлучайноеЧисло + Сч );

Объект.ОбменДанными.Загрузка = Истина;

Объект.Записать();

КонецЦикла;
_____________________________________
кое-что интересное подчерпнул тут: [url]https://infostart.ru/1c/articles/57305/[/url]

makfromkz 04.09.2023 16:35

Зачем обращаться к базе, если все равно используете ГСЧ ?
С помощью ГСЧ и генерите ДД, ММ, ГГГГ.
диапазоны должны быть валидными, хотя для ДР наверное нет разницы :)


Текущее время: 10:36. Часовой пояс GMT +3.