[VB in excell] Nauwkeurigheid klok

[Sensei_D]

Ik heb wederom hulp nodig. De klok van de computer lijkt niet erg nauwkerig, check mijn code tot zo ver:

code:

...
Sub klok()
    Dim mytime
    Dim mytime2
    Dim mytime3 As Double
    mytime = Time
    DELAY (5000)
    mytime2 = Time
    mytime3 = (mytime2 - mytime) * 100000
    mytime3 = Round(mytime3)
    msgbox (mytime3), vbCritical
End Sub
...

Hij geeft nu een verschil van 6 seconden, toch Maar dit moet 5 zijn. Hoemeer ik die delay verhoog hoe erger de afwijking, hoe kan ik dit verbeteren. Dat afronden wil ik er graag in houden.

Help me

[Sponge]

Gebruik eens Timer (of nog liever timeGetTime API)

Voor de Delay kun je ook sleep gebruiken (ook API), of zelf wat prutsen:

code:

dim lngStart as long
lngstart = timeGettime
Do
 if (TimeGettime - lngstart) => 5000 then exit do
 doevents
loop

Deze code zal nauwkeurig zijn < 20ms volgens mij