// Если передено число - то 1, иначе 0

Функция ЭтоЧисло(Знач ТекСтр)

	ТекСтр = СокрЛП(ТекСтр);

	ТекСтр = СтрЗаменить(ТекСтр,"0","9");

	

	Если (СтрДлина(Число(ТекСтр)) <> СтрДлина(ТекСтр))

	или ((СтрДлина(ТекСтр) = 1) и (Найти("0123456789",ТекСтр) = 0)) Тогда

		Возврат 0;

	КонецЕсли;

	

	Возврат 1;

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

 

// Если передено число - то истина, иначе ложь

Функция ЯвляетсяЧислом(Значение) Экспорт

	Если ТипЗнч(Значение) = Тип("Число") Тогда

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

	Иначе

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

			Если Значение = "" Тогда

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

			КонецЕсли;

		КонецЕсли;



		Попытка

			Р = Число(Значение);

		Исключение

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

		КонецПопытки;

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

	КонецЕсли;

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