if datediff("h", Application("degeryukseltmesure"), now()) >= 2 then
     Application.Lock
     Application("degeryukseltme")=veritabanifonksiyonu()
     Application("degeryukseltmesure")=now()
     Application.Unlock
end if