1С 8.3 : Функция проверяет наличие в строке только цифр

 // Функция проверяет наличие в строке только цифр

//

// Параметры

//  СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

//   Булево

//

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт





	Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

		Возврат Истина;

	КонецЕсли;

	

	СтрокаПроверки = СокрЛП(СтрокаПроверки);

	Длина = СтрДлина(СтрокаПроверки);

	

	Для а = 1 По Длина Цикл

		Если Найти("0123456789", Сред(СтрокаПроверки, а, 1)) = 0 Тогда

			Возврат Истина;

		КонецЕсли; 

	КонецЦикла;

	

	Возврат Ложь;

	

КонецФункции