Запускал по пять раз:
1С:Предприятие 8.3.2.163 (бета-версия) от 28.09.2012
Код
Procedure PressExecuteButton(Button)
Start = CurrentUniversalDateInMilliseconds();
For i = 0 To 2000000 Do
a = 123;
EndDo;
End = CurrentUniversalDateInMilliseconds() - Start;
Message(End);
EndProcedure
Лог:
9 026
9 477
9 166
9 045
9 150
BlackBox Component Builder 1.6-rc6
Красноярская сборка 16 октября 2012
Код:
MODULE MyTime;
IMPORT Log;
PROCEDURE Do*;
VAR
a, i: INTEGER;
BEGIN
FOR i := 0 TO 2000000 DO
a := 123;
END;
END Do;
BEGIN
END MyTime.Do
Лог:
16 миллисек
16 миллисек
15 миллисек
16 миллисек
15 миллисек
Lua for windows v5.1.4-46
http://code.google.com/p/luaforwindows/Код:
t1 = os.time()
for i = 1, 2000000 do
a = 123
end
print(os.time() - t1)
Лог (в секундах):
>lua -e "io.stdout:setvbuf 'no'" "Test.Lua"
0
>Exit code: 0
>lua -e "io.stdout:setvbuf 'no'" "Test.Lua"
0
>Exit code: 0
>lua -e "io.stdout:setvbuf 'no'" "Test.Lua"
0
>Exit code: 0
>lua -e "io.stdout:setvbuf 'no'" "Test.Lua"
0
>Exit code: 0
>lua -e "io.stdout:setvbuf 'no'" "Test.Lua"
0
>Exit code: 0
В BlackBox время замерял с помощью:
меню -> разработка -> засечь время выполнения
Как в Lua мерить миллисекундами так и не нашел.
ps машинка: HP ProBook 4520s (Core i3 M380 2.53GHz)