vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Vorgegebende Zeit zurückzählen 
Autor: Marcus W
Datum: 15.12.03 08:23

Hi,

das liegt daran, daß ein Tag nicht mehr als 24 Stunden hat. Und um 24 Uhr ist 0 Uhr und damit ein neuer Tag.

Wenn Du über die 24 Stunden hinaus willst, mußt Du anders vorgehen:
Option Explicit
 
Dim CountDown As Double
Dim OldCaption As String
 
Private Sub Form_Load()
  Dim Stunden As Double, Minuten As Double, Sekunden As Double
 
  Stunden = 25 * CDbl(3600)
  Minuten = 10 * 60
  Sekunden = 45
 
  CountDown = Stunden + Minuten + Sekunden
  Command1.Caption = CalcTime(CountDown)
End Sub
 
Private Sub Command1_Click()
  OldCaption = Command1.Caption
 
  With Timer1
    .Interval = 1000
    .Enabled = True
  End With
End Sub
 
Private Sub Timer1_Timer()
  CountDown = CountDown - 1
  Command1.Caption = CalcTime(CountDown)
 
  If CountDown = 0 Then
    Timer1.Enabled = False
    Command1.Caption = OldCaption
  End If
End Sub
 
Private Function CalcTime(ByVal Tick As Double) As String
  Dim Stunden As Double, Minuten As Double, Sekunden As Double, Rest As Double
 
  Stunden = Tick \ 3600
  Rest = Tick Mod 3600
 
  Minuten = Rest \ 60
  Sekunden = Rest Mod 60
 
  CalcTime = Format(Stunden, "00") & ":" & Format(Minuten, "00") & ":" & Format( _
    Sekunden, "00")
End Function

Gruß
Marcus

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Vorgegebende Zeit zurückzählen1.515Prof. Einstein12.12.03 03:33
Re: Vorgegebende Zeit zurückzählen1.083Marcus W12.12.03 07:14
Re: Vorgegebende Zeit zurückzählen1.000Prof. Einstein12.12.03 14:09
Re: Vorgegebende Zeit zurückzählen1.048Marcus W13.12.03 02:50
Re: Vorgegebende Zeit zurückzählen927Prof. Einstein15.12.03 00:43
Re: Vorgegebende Zeit zurückzählen1.024Prof. Einstein15.12.03 01:08
Re: Vorgegebende Zeit zurückzählen1.009Marcus W15.12.03 08:23
Re: Vorgegebende Zeit zurückzählen939Prof. Einstein16.12.03 01:48
Re: Vorgegebende Zeit zurückzählen923Marcus W16.12.03 21:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel