Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: kot_k_k
вот - экэономическая эксперимента однако!!!

вот сваял 3 функции - время выполнения функции данные GetTickCount - разница начал и окончания цикла.



Function GL_Prov()
    GL_Prov = 1
End Function

Function GL_Prov_2()
    k = GetTickCount
    For i = 1 To 1000000
        ll = 1 + Forms!Global!Plant
    Next
    K2 = GetTickCount
End Function

Function GL_Prov_3()
    k = GetTickCount
    For i = 1 To 1000000
        ll = 1 + GL_Prov
    Next
    K2 = GetTickCount
End Function

Function GL_Prov_4()
    k = GetTickCount
    For i = 1 To 1000000
        ll = 1 + 1
    Next
    K2 = GetTickCount
End Function



1. С обращением к форме - 12109
2. С обращением к функции GL_Prov - 156
3. Просто цикл -16

да уж снимаю шляпу

получается ему стрельнуть функцию проще чем обратиться к форме.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.