Vapros za VB

Privet,

Imam sledniq moze bi glupav spored nqkoi vizdaniq vapros - kak vav VB6 da razbera kakvo vreme e minalo (v secundi) mezdu 2 sabitiq, bez da izpolzvam timer-i i drugi podobni.
Naprimer imam forma s 2 butona - clickvam ediniq, sled malko drugiq, kak da razbera kolko secundi sa minali mezdu dvete clickvaniq(moze da e povece ot 60)

10x

now(), time(), timer()

Пламен

API:
GetTickCount

Vryshta vremeto koeto e izminalo sled startirane na sistemata v milisecundi.

Pozdravi ot Bourgas.

Naistina GetTickCount shte ti svarshi rabota (ama ima edin problem pri nego che ako mejdy parvoto i vtoroto natiskane minat poveche ot 596,523235555555555555555555555556 chasa shte imash problemi zashtoto ako ot startiraneto na Windows sa minali poveche ot tezi chasove GetTickCount zapochva da vrashta otricatelni chisla (ili se nylira - ne sam probval))

Napravi si dve globalni promenlivi ot tip Long.
Kogato natisnesh parvia byton napravi parvata = GetTickCount
Kogato natisnesh vtoria byton napravi vtorata=GetTickCount
Vtorata - Parvata = Intervala mejdy natiskaniata v milisekundi

Primeren kod

(Vav VB module)
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public lngFirstPress As Long
Public lngSecondPress As Long



(V Click sabitieto na parvia byton)
lngFirstPress=GetTickCount


(V Click sabitieto na vtoria byton)
lngSecondPress=GetTickCount
MsgBox "Ot natiskaneto na parvia do natiskaneto na vtoria byton izminaha " & (lngSecondPress-lngFirstPress) & " milisekyndi"


Tyi to

QueryPefromanceCounter
Наистина след 535 000 години ще се превърти,
но мисля че като за начало става!
Пък и е по-точна (ок. 1 милионна от сек.)