Может код под руками есть?

_GetPerformanceCounter()

Книга знаний: Генератор случайных чисел в 1С

Для Н = 15 По 40 Цикл
 Н = Н + 1;
КонецЦикла;
Годится?

чуть-чуть по случайнее бы..

для 7.7  ...

RiK_SQL
.
ПолучитьСлучайноеЧисло(<?>);
Синтаксис:
ПолучитьСлучайноеЧисло(<МаксЗначение>)
Назначение:
Возвратщает псевдослучайное целое число в диапазоне 0..<МаксЗначение>
Параметры:

<МаксЗначение> - число, верхняя граница диапазона, в котором будет генериться случайное число.

Пример:

ТекДок.ВремяВыпечки = '''' + Прав(''0''+(ОбъектП.ПолучитьСлучайноеЧисло(3)+3),2) + ''-'' + Прав(''0''+(ОбъектП.ПолучитьСлучайноеЧисло(3)*15),2);

sc=CreateObject("MicrosoftScriptControl");// или как он там называется
sc.Language="JavaScript";// выбираем язык
sc.Run("Math.random()");// получаем случайное число от единицы до нуля
// осталось округлить.

от 0 до 40:
Рандом=_GetPerformanceCounter()%(40+1);  

От 15-ти сделай сам:)

Тогда уж
Число=(_GetPerformanceCounter()%26)+15;

Если штатными средствами, то можно пользовать какие-либо мат функции, где в аргументы вставлять значение текущей секунды. Если всё это перемешать с циклами, то получится медленный, но действительно случайный генератор.

Самый хороший случайный генератор - это бесконечный цикл, который надо попросить прервать пользователя нажатием Esc.