// Если передено число - то 1, иначе 0 Функция ЭтоЧисло(Знач ТекСтр) ТекСтр = СокрЛП(ТекСтр); ТекСтр = СтрЗаменить(ТекСтр,"0","9"); Если (СтрДлина(Число(ТекСтр)) <> СтрДлина(ТекСтр)) или ((СтрДлина(ТекСтр) = 1) и (Найти("0123456789",ТекСтр) = 0)) Тогда Возврат 0; КонецЕсли; Возврат 1; КонецФункции
// Если передено число - то истина, иначе ложь Функция ЯвляетсяЧислом(Значение) Экспорт Если ТипЗнч(Значение) = Тип("Число") Тогда Возврат Истина Иначе Если ТипЗнч(Значение) = Тип("Строка") Тогда Если Значение = "" Тогда Возврат Ложь; КонецЕсли; КонецЕсли; Попытка Р = Число(Значение); Исключение Возврат Ложь; КонецПопытки; Возврат Истина; КонецЕсли; КонецФункции