![]() |
Tipp 0120
|
Zeitmessung mit TimeSpan (Countdown)
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 17.05.2006 |
|
Entwicklungsumgebung: |
|
VB 2005 |
Framework: |
|
2.0 |
|
|
Dieser Tipp demonstriert, wie man mit der TimeSpan-Klasse eine Zeitdifferenz, in diesem Fall ein CountDown in Tagen,
Stunden, Minuten usw. darstellen kann.
Aktuell wird der CountDown zum Eröffnungsspiel der WM 2006 angezeigt. Wird dieser Termin überschritten, wird ein negativer "CountDown"
von diesem Zeitpunkt durchgeführt.
|
Weiterhin zeigt dieser Tipp:
- Genaues Datum + Zeit vorgeben
- Datumsangaben vergleichen, vor oder hinter Datum + Zeit
- Zahlen formatieren: Auffüllen mit vorangestellten Nullen
- Url aufrufen mit Webbrowser-Steuerelement
|
|
|
Dim TSpan As New TimeSpan
Dim CountDownDT As DateTime = #6/9/2006 6:00:00 PM#
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
If DateTime.Now < CountDownDT Then
Label7.Text = Me.Text
Label8.Text = "Freitag 09.06. 2006, 18.00 Uhr"
Label9.Text = "Noch..."
Me.Text = "CountDown bis Eröffnungsspiel WM2006: " & _
CStr(CountDownDT)
Else
Label7.Text = "Zeit vergangen nach Eröffnungspiel WM2006: "
Label8.Text = "Freitag 09.06. 2006, 18.00 Uhr"
Label9.Text = "Seither..."
Me.Text = """ountDown"" seit Eröffnungsspiel WM2006: " & _
CStr(CountDownDT)
Button1.Visible = False
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
TSpan = CountDownDT.Subtract(DateTime.Now)
Label1.Text = CStr(TSpan.Days) & " Tage"
Label2.Text = CStr(TSpan.Hours) & " Stunden"
Label3.Text = CStr(TSpan.Minutes) & " Minuten"
Label4.Text = CStr(TSpan.Seconds) & " Sekunden"
Label5.Text = Format(TSpan.Milliseconds, "000") & _
" Millisekunden"
Label6.Text = CStr(TSpan.Ticks) & " Ticks"
End Sub
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (20,5 kB)
|
Downloads bisher: [ 1230 ]
|
|
|