1С 8.3 Замер времени выполнения кода
Данные > Примеры кода 1С > 1С 8.3 Дата и время
Перейти в основной раздел:
Замер времени выполнения кода 1С 8.3:
&НаКлиенте
Процедура ТипоКакаяТоПроцедура()
СтартЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах();
Для А = 1 По 1000000 Цикл // ... типо какой-то код выполняется НаКлиенте
КонецЦикла;
//ВызватьПаузу(2000); // ... типо какой-то код выполняется НаСервере 2 секунды. ("ВызватьПаузу" доступен, начиная с версии 8.3.25)
ФинишЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах();
Если ПустаяСтрока(СтартЗамера) Тогда
// Если нет стартовой даты - значит процедура начала отсчета времени не была запущена.
ВремяВыполнения = "Замер времени не начат!";
КонецЕсли;
РазницаМС= (ФинишЗамера - СтартЗамера) / 1000;
ВремяВыполнения = Формат(Дата(1,1,1) + РазницаМС, "ДЛФ=T");
Сообщить(ВремяВыполнения); // Например: 0:00:02
КонецПроцедуры
Процедура ТипоКакаяТоПроцедура()
СтартЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах();
Для А = 1 По 1000000 Цикл // ... типо какой-то код выполняется НаКлиенте
КонецЦикла;
//ВызватьПаузу(2000); // ... типо какой-то код выполняется НаСервере 2 секунды. ("ВызватьПаузу" доступен, начиная с версии 8.3.25)
ФинишЗамера = ТекущаяУниверсальнаяДатаВМиллисекундах();
Если ПустаяСтрока(СтартЗамера) Тогда
// Если нет стартовой даты - значит процедура начала отсчета времени не была запущена.
ВремяВыполнения = "Замер времени не начат!";
КонецЕсли;
РазницаМС= (ФинишЗамера - СтартЗамера) / 1000;
ВремяВыполнения = Формат(Дата(1,1,1) + РазницаМС, "ДЛФ=T");
Сообщить(ВремяВыполнения); // Например: 0:00:02
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник