Zeitdifferenzberechnung in Echtzeit auf Desktop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Huber,
das ist ja fast schon Auftragsprogrammierung :-)
Das was Du suchst ist ja quasi ein umgedrehter Countdown...
Bastel Dir eine UserForm in VBA mit einem Label (lblAus), 3 TextBoxen (txtStd,txtMin,txtSec) und ein Button(cmdGo). Dann brauchst Du noch ein Timer-Steuerelement auf der Form (Timer1), den Intervall auf 1000 stellen (1000 ms = 1 Sec)
dann folgenden Code...
Option Explicit
Public Sec, Min, Hour, aTime As String


Private Sub cmdGo_Click()
Hour = txtStd.Text
Min = txtMin.Text
Sec = txtSec.Text
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
aTime = Format$(Hour, "00:"): aTime = aTime & Format$(Min, "00:"): aTime = aTime & Format$(Sec, "00")
lblAus.Caption = aTime
Sec = Sec + 1
If Sec = 60 Then
Sec = 0
Min = Min + 1
If Min = 60 Then
If Not Hour = 0 Then
Min = 0
Hour = Hour + 1
End If
End If
End If
End Sub

Hab jetzt die Fehlerbehandlung mal weg gelassen...
Wenn Du etwas haben willst, das ständig im Tray oder auf dem Desktop sichtbar sein soll, dann geht´s nur über VB6 in dem Falle, einfach melden...
Grüße
Hoffi
P.S. Rückmeldung wäre nett...

Hallo Huber,
Danke das Dir mein kleines Tool gefällt... Es ist wie gesagt allerdings noch nicht ganz fertig... Hab gestern noch weiter dran rum gebastelt und die Oberfläche nochmal verändert (sieht jetzt bißchen mehr nach Uhr aus) außerdem wird die fortlaufende Uhrzeit nun auch im Tray angezeigt. Das mit der Registry ist ein bißchen schwieriger, werde ich aber noch einfügen. Einen Bug(Fehler) hab ich allerdings noch drinne, denn die abgelaufenen Tage Monate und Jahre werden nicht ganz korrekt angezeigt (ein Tag abweichung) da die Tage usw. getrennt von der Zeit errechnet werden, da bin ich aber dran, das zu ändern.
Ich versuche das Tool zum Wochenende hin soweit fertig zu bekommen (muss zwischendurch noch bißerl arbeiten :-) )
Du könntest mir mal Deine E-Mail Adresse geben wo ich das dann hin schicken kann, da der Thread bald ins Archiv rutscht.
Mich kannst Du auch über H3llboy@freenet.de erreichen.
Geschenke? Hmmm, ist eigentlich nicht nötig, ich programmiere gerne (bin noch kein Profi und lerne deshalb viel dabei) würde mich freuen wenn Du Dich wieder meldest, wenn Du Ideen für neue Tools hast, die ich in Angriff nehmen könnte, das ist Lohn genug ;-)
Also, dann warte ich mal auf Deine E-Mail Adresse und bastel Deine Wünsche noch ins Tool.
Grüße aus dem regnerischen Westerwald
Hoffi

Beliebteste Forumthreads (12 Monate)

Zeitdifferenzberechnung in Echtzeit auf Desktop

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitdifferenzberechnung in Echtzeit auf Desktop

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread