Проблемы со временем

[Matew]

Имеется код:

Код: Выделить всё

Dim a as double, b as double, c as double, d as double

Private sub Form1_load
A=timer
Call procedura
B=timer
Msgbox b-a
End sub

Private sub procedura
C=timer
‘много операторов
d=timer
msgbox d-c
end sub


Почему первый Msgbox( который d-c) выдает 0, а второй 0,5-0,8???

[GSerg]

Потому что в первом случае успевает, а во втором нет...

[tyomitch]

Потому что пока ты в первом нажмёшь на "ОК", время-то тикает...

GSerg, не верю - 0,5 сек. слишком много для одного тика. Я бы поверил в разницу порядка 0,1 сек.