Как написать функцию, которая выводит тип параметра?

Question

[Lolipop999]

Здравствуйте, я только-только начал изучать 1С и не могу понять, как выполнить задачу, звучит она так:
Написать функцию, которая в зависимости от типа переданного параметра выводит сообщение. Если типы "число", "строка", "дата", то сообщение: "Данный параметр имеет тип " и далее название типа. Если тип "булево", то сообщение: "Данный параметр может принимать значение "истина" или "ложь"". Если другой тип, то сообщение: "тип не определен".

&НаКлиенте
Процедура Факториал(Команда)
	ИзначальноеЧисло = 6;   
	
	ИскомоеЧислоЦикл = ВычислитьФакториалЦиклом(ИзначальноеЧисло);      
	ИскомоеЦислоРекурсия = ВычислитьФакториалРекурсией(ИзначальноеЧисло);  
	
	Сообщить("Изначальное Число " + ИзначальноеЧисло); 
	Сообщить("Искомое Цисло Циклом " + ИскомоеЧислоЦикл);   
	Сообщить("Искомое Цисло Рекурсией " + ИскомоеЦислоРекурсия);



КонецПроцедуры  


&НаКлиенте
Функция ВычислитьФакториалЦиклом(ИзначальноеЧисло) 
	
	ИскомоеЧисло = 1;  
	
	Для Индекс = 1 по ИзначальноеЧисло Цикл  
		ИскомоеЧисло = ИскомоеЧисло * Индекс;  
 
	КонецЦикла;	 
	
	Возврат ИскомоеЧисло;  

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


Функция ВычислитьФакториалРекурсией(ИзначальноеЧисло)  
	
	Если ИзначальноеЧисло <= 1 Тогда 
		Возврат 1;  
	Иначе
		Возврат	ИзначальноеЧисло * ВычислитьФакториалРекурсией(ИзначальноеЧисло - 1);   
 	КонецЕсли;
	
КонецФункции

Answer 1

[kalapanga]

Тест = 123435;
Если ТипЗнч(Тест) = Тип("Число") Тогда
	Сообщить("Ок");
КонецЕсли;

Аналогично для других, определённых в 1С типов.

Comments

[Ольга Кошлань]

Добрый день!
У меня аналогичный вопрос, мне код понятен, но как написать это через функцию?
Функция СообщениеПараметров(Тест)
Тест = 12;
Если ТипЗнч(Тест) = Тип("Число") Тогда
Сообщить ("Данный параметр имеет тип число");
ИначеЕсли ТипЗнч(Тест) = Тип("Строка") Тогда
Сообщить ("Данный параметр имеет тип строка");
ИначеЕсли ТипЗнч(Тест) = Тип("Дата") Тогда
Сообщить ("Данный параметр имеет тип дата");
КонецЕсли;
Возврат Тест;
КонецФункции

Для пользователя программа сообщение не выводит. Что я не так делаю?

[kalapanga]

Ольга Кошлань, в функции ничего криминального нет. Она работает.
Смотрите, вызывается ли она вообще, нет ли каких других ошибок.

[Ольга Кошлань]

kalapanga, спасибо за ответ. В программе 8.3 в модуле приложения не работает, хотя перед ней функция возведения числа в степень через умножение работает и выводит ответ пользователю.

[kalapanga]

Ольга Кошлань, модуль приложения, пожалуй не самое подходящее место для пользовательских функций. Может другое место попробовать? Или сравнивайте, чем у Вас две функции отличаются.

[Ольга Кошлань]

kalapanga, функция первая отличается тем, что команда "сообщить" стоит после тела самой функции. Попробую прописать в другом месте. Спасибо!

Answer 2

[Jozik_lenusiko]

Доброго времени суток, с задачей смогли справиться?
Функция ТипПереданногоПараметра(Тест)
Тест = 8;
Если ТипЗнч(Тест) = Тип("Число") Тогда
Сообщить("Данный параметр имеет тип Число");

ИначеЕсли ТипЗнч(Тест) = Тип("Строка") Тогда
Сообщить("Данный параметр имеет тип Строка");

ИначеЕсли ТипЗнч(Тест) = Тип("Дата") Тогда
Сообщить("Данный параметр имеет тип Дата");

ИначеЕсли ТипЗнч(Тест) = Тип("Булево") Тогда
Сообщить("Данный параметр может принимать значение истина или ложь");

ИначеЕсли ТипЗнч(Тест) = Тип("null") Тогда
Сообщить ("тип не определен");

КонецЕсли;

Возврат Тест

КонецФункции // ()
Написала функцию, но она не работает, не могу понять, что не так(