Функция ЭтоЧисло(Строка) // Экспорт

	

	РезультатЭтоЧисло = 1; // Истина

	

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

	

	Для i = 1 По ДлинаСтроки Цикл

		

		Символ = Лев(Строка, 1);

		Строка = Сред(Строка, 2);

		

		Если Не (Символ = "1" Или Символ = "2" Или Символ = "3" Или Символ = "4" Или Символ = "5" Или Символ = "6" Или Символ = "7" Или Символ = "8" Или Символ = "9" Или Символ = "0") Тогда 

			РезультатЭтоЧисло = 0; // Ложь

			Прервать;

		КонецЕсли;

	

	КонецЦикла;

		

	Возврат РезультатЭтоЧисло;

	

КонецФункции // ЭтоЧисло

   

 Функция ЭтоЧисло(Символ) Экспорт

     Если (КодСимв(Символ)>=48) И (КодСимв(Символ)<=57) Тогда

          Возврат(1);

     Иначе

          Возврат(0);

     КонецЕсли;

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

  

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

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

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

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

	

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

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

		Возврат 0;

	КонецЕсли;

	

	Возврат 1;

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

 

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

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

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

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

	Иначе

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

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

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

			КонецЕсли;

		КонецЕсли;



		Попытка

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

		Исключение

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

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

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

	КонецЕсли;

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