DateAndTime.Timer Egenskap
Definition
Viktigt
En del information gäller för förhandsversionen av en produkt och kan komma att ändras avsevärt innan produkten blir allmänt tillgänglig. Microsoft lämnar inga garantier, uttryckliga eller underförstådda, avseende informationen som visas här.
Returnerar ett Double värde som representerar antalet sekunder som förflutit sedan midnatt.
public:
static property double Timer { double get(); };public static double Timer { get; }static member Timer : doublePublic ReadOnly Property Timer As DoubleEgenskapsvärde
Ett värde som representerar antalet sekunder som förflutit sedan midnatt.
Exempel
I det Timer här exemplet används egenskapen för att pausa programmet. Den kan utföra annan bearbetning under pausen.
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
Observera att du måste kvalificera egenskapen Timer med namnområdet Microsoft.VisualBasic eftersom Timer också är en definierad klass i namnrymderna System.Threading, System.Timers och System.Windows.Forms.
Kommentarer
Egenskapen Timer returnerar både sekunderna och millisekunderna sedan den senaste midnatt. Sekunderna finns i den integrerade delen av returvärdet och millisekunderna finns i bråkdelen.
