Свойство Timer
Обновлен: Ноябрь 2007
Возвращает значение типа Double, представляющее число секунд, прошедших после полуночи.
ReadOnly Public Property Timer() As Double
Заметки
Свойство Timer возвращает секунды и миллисекунды, прошедшие после наступления полуночи текущих суток. Секунды представлены в целой части возвращаемого значения, а миллисекунды — в дробной части.
Пример
В данном примере свойство Timer используется для приостановки работы приложения. Во время паузы могут выполняться другие виды обработки данных.
Public Sub waitFiveSeconds()
If TimeOfDay >= #11:59:55 PM# Then
MsgBox("The current time is within 5 seconds of midnight" & _
vbCrLf & "The timer returns to 0.0 at midnight")
Return
End If
Dim start, finish, totalTime As Double
If (MsgBox("Press Yes to pause for 5 seconds", MsgBoxStyle.YesNo)) _
= MsgBoxResult.Yes Then
start = Microsoft.VisualBasic.DateAndTime.Timer
' Set end time for 5-second duration.
finish = start + 5.0
Do While Microsoft.VisualBasic.DateAndTime.Timer < finish
' Do other processing while waiting for 5 seconds to elapse.
Loop
totalTime = Microsoft.VisualBasic.DateAndTime.Timer - start
MsgBox("Paused for " & totalTime & " seconds")
End If
End Sub
Обратите внимание, что необходимо уточнить свойство Timer с помощью пространства имен Microsoft.VisualBasic, поскольку Timer является также определенным классом в пространствах имен System.Threading, System.Timers и System.Windows.Forms.
Требования
Пространство имен: Microsoft.VisualBasic
Модуль: DateAndTime
Сборка: Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)
Поскольку Timer является членом модуля, а не класса, нет необходимости создавать объект для доступа Timer.