Timer (Propiedad)
Actualización: noviembre 2007
Devuelve un valor Double que representa el número de segundos transcurridos desde la medianoche.
ReadOnly Public Property Timer() As Double
Comentarios
La propiedad Timer devuelve tanto los segundos como los milisegundos desde la medianoche más reciente. Los segundos están en la parte integral del valor devuelto, y los milisegundos están en la parte decimal.
Ejemplo
En este ejemplo se utiliza la propiedad Timer para interrumpir la aplicación. Durante la interrupción pueden realizarse otros procesos.
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
Tenga en cuenta que debe calificar la propiedad Timer con el espacio de nombres Microsoft.VisualBasic, ya que Timer también es una clase definida en los espacios de nombres System.Threading, System.Timers y System.Windows.Forms.
Requisitos
Espacio de nombres:Microsoft.VisualBasic
**Módulo:**DateAndTime
**Ensamblado:**Visual Basic Runtime Library (en Microsoft.VisualBasic.dll)
Debido a que Timer es miembro de un módulo y no de una clase, no es necesario crear un objeto desde el que obtener acceso a Timer.