функция ПолучитьСлучайноеЧисло (ВерхняяВилка=1);
Если ЗагрузитьВнешнююКомпоненту(«V7Plus.dll») <> 1 Тогда
Сообщить(«Ошибка загрузки компоненты V7+»);
возврат 0;
КонецЕсли;
НТТРСистИнформ = СоздатьОбъект(«AddIn.V7SysInfo»);
//получим уникальный идентификатор:
СлучайнаяСтрока = СокрЛП(НТТРСистИнформ.СоздатьGUID()); // вида:11CADC0A-96C4-4547-81E4-889CB89634BB
//Суммируем коды всех символов этой случайной строки
Куча=1;
для СчетчикСимволов=1 по СтрДлина(СлучайнаяСтрока) цикл
куча = куча+КодСимв(Сред(СлучайнаяСтрока,СчетчикСимволов,1))*СчетчикСимволов;
Конеццикла;
возврат куча % ВерхняяВилка;
конецфункции
//*******************************************
Процедура Сформировать()
НеБолееТысячи = 1000;
НеБолееСта = 100;
НеБолееДесяти = 10;
сообщить(«Случайное число не более тысячи:»+ПолучитьСлучайноеЧисло(НеБолееТысячи));
сообщить(«Случайное число не более ста:»+ПолучитьСлучайноеЧисло(НеБолееСта));
сообщить(«Случайное число не более Десяти:»+ПолучитьСлучайноеЧисло(НеБолееДесяти));
КонецПроцедуры
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
У нас извратились на получение «случайного» числа из
Всегда интересовало нафига в учетной системе функция рандом?
в 8 есть
(2) А распределение зарплаты?
(4) 😀
Оригинально!
Хорошо бы еще для полноты картины добавить параметр «нижняя вилка»
А распределение зарплаты?
хорошо хоть не размер самой зарплаты
И ради такой фигни загружать целую ВК?
(2) Чтобы можно было, например, на языке 1С игрушку типа пасьянса реализовать… 😀
(8) victuan,
🙂 и стоит
ради 1С — целый Windows грузить :)))
(9) vkr, А я делал эту функцию для того чтобы табели отработанного времени охранникам формировать )))
(11) Ну ну. купить среду для бизнес приложений, чтобы в пасьянс погонять. 🙂
прикольно, буду иметь ввиду…
Хорошая вещь, у себя реализовал прикольно.
(14) GenTay, На здоровье
(16) Кошки рулят, не убедил
Кроме игрушек бывает еще задача сформировать код доступа куда либо. И чтобы каждый раз был новый. Так что «+»