Таймер мүмкіндігі

Жарым түннен бастап өткен секундттар санын көрсететін Single түріндені мәнді қайтару үшін.

Синтаксис

Таймер

Ескертпелер

Microsoft Windows бағдарламасында Таймер функциясы секундтың бөлшектерін қайтарады. Macintosh бағдарламасында, таймер ажыратымдылығы бір секундқа тең.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Төмендегі мысалда бағдарламаны тоқтату үшін Таймер функциясы пайдаланылады. Сонымен қатар, тоқтатылған кезде, өзге барыстарды өткізіп жіберу үшін, бұл мысал DoEventsфункциясын пайдаланады.

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
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×