Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Как определить время работы отчета, обработки? 1С:Предприятие 8.0, 8.1, 8.2, 8.3.

Процедура КакОпределитьВремяРаботыОтчетаОбработки()
	Перем ВремяРаботыСек,ВремяРаботыМин,ВремяРаботыЧас;
	ВремяРаботыСек=0;
	ВремяРаботыМин=0;
	ВремяРаботыЧас=0;
	НачРаботы=ТекущаяДата();
	ОчиститьСообщения();
	//Собственно обработка 1С:Предприятие
	Для л=1 По 10000 Цикл
		Сообщить("Идет обработка данных!");
	КонецЦикла;
	КонРаботы=ТекущаяДата();
	ВремяРаботыСек=КонРаботы-НачРаботы;
	Если  ВремяРаботыСек > 60 Тогда
		ВремяРаботыМин=Окр(ВремяРаботыСек/60,0)-1;
	КонецЕсли;
	Если ВремяРаботыМин>60 Тогда
		ВремяРаботыЧас=Окр(ВремяРаботыМин/60,0)-1;
	КонецЕсли;
	ВремяРаботы=" "+ВремяРаботыЧас+" ч. "+ВремяРаботыМин+" мин. "+ВремяРаботыСек+" сек.";
	Сообщить ("Начало: "+НачРаботы+", конец: "+КонРаботы+" Время работы: "+ВремяРаботы);
КонецПроцедуры
 

Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	КакОпределитьВремяРаботыОтчетаОбработки();
КонецПроцедуры