Замер времени выплонения кода

Несколько вариантов кода позвлояющих произвести замер времени

1.

//// { ЗАМЕР ВРЕМЕНИ ВЫПОЛНЕНИЯ КОДА
__СкриптКонтрол = Новый COMОбъект("MSScriptControl.ScriptControl");
__СкриптКонтрол.Language = "javascript";

ЗамерВремениНачало = __СкриптКонтрол.eval("new Date().getTime()");
//// } ЗАМЕР ВРЕМЕНИ ВЫПОЛНЕНИЯ КОДА

<?>

//// { ЗАМЕР ВРЕМЕНИ ВЫПОЛНЕНИЯ КОДА
ЗамерВремениОкончание = __СкриптКонтрол.eval("new Date().getTime()"); 

Миллисекунды  = ЗамерВремениОкончание-ЗамерВремениНачало;
// Часы
КолВоЧасов   = Цел(Миллисекунды/(60*60*1000));
Остаток    = Миллисекунды-КолВоЧасов*60*60*1000; 
// Минуты
КолВоМинут   = Цел(Остаток/(60*1000));
Остаток    = Остаток-КолВоМинут*60*1000; 
// Секунды,миллисекунды
КолВоСекунд   = Цел(Остаток/1000);
КолВоМиллисекунд = Остаток-КолВоСекунд*1000;
 
Сообщить(НСтр("ru = 'Время выполнения: " + 

Формат(КолВоЧасов,"ЧЦ=3;ЧН=;ЧВН=")+":"+

Формат(КолВоМинут,"ЧЦ=2;ЧН=;ЧВН=")+":"+ 

Формат(КолВоСекунд,"ЧЦ=2;ЧН=;ЧВН=")+":"+ 

Формат(КолВоМиллисекунд,"ЧЦ=3;ЧН=;ЧВН=") + " мс.'"), СтатусСообщения.Информация);
//// } ЗАМЕР ВРЕМЕНИ ВЫПОЛНЕНИЯ КОДА

2.
 На кнопке 

Процедура ДействияФормыкнЗамерВремени(Кнопка)
 ЭлементыФормы.ДействияФормы.Кнопки.КнЗамерВремени.Текст = "  0 сек.";
КонецПроцедуры

перед и после выполнения кода

ВремяНачалаФормированияОтчета = ТекущаяДата();
 
// тут выполняется кот 
 
ЭлементыФормы.ДействияФормы.Кнопки.кнЗамерВремени.Текст = "  " + Число(ТекущаяДата() - ВремяНачалаФормированияОтчета) + " сек.";