Timer, functie

Geeft een waarde van het gegevenstype Enkel als resultaat die het aantal seconden aangeeft dat is verstreken sinds middernacht.

Syntaxis

Timer

Opmerkingen

In Microsoft Windows geeft de functie Timer de gebroken gedeelten van een seconde als resultaat. Op de Macintosh is timerresolutie één seconde.

Voorbeeld van query

Expressie

Resultaten

SELECT timer () AS SecondsPast FROM ProductSales GROUP BY timer ().

Retourneert het aantal seconden dat is verstreken sinds middernacht op basis van de systeemtijd en wordt weergegeven in de kolom SecondsPast.

Voorbeeld van VBA

Opmerking: In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.

In dit voorbeeld wordt de functie Timer gebruikt om de toepassing te onderbreken. In het voorbeeld wordt ook DoEvents gebruikgemaakt van DoEvents om naar andere processen te leveren tijdens de onderbreking.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", _
4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If

Opmerking:  Deze pagina is automatisch vertaald en kan grammaticale fouten of onnauwkeurigheden bevatten. Wij hopen dat deze inhoud nuttig voor je is. Wil je ons laten weten of deze informatie nuttig is? Hier is het Engelstalige artikel ter referentie.

Zie ook

De juiste datumfunctie kiezen

Uw Office-vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders

Was deze informatie nuttig?

Bedankt voor uw feedback.

Hartelijk dank voor uw feedback! Het lijkt ons een goed idee om u in contact te brengen met een van onze Office-ondersteuningsagenten.

×