Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Runterzählen
Autor: vbler2005
Datum: 07.02.05 15:18
Hallo, versuch mal folgendes. Private Sub timerzeit_Timer() 'Wie lange läuft der Prozess in Sekunden noch '5 Stunden = 18000 Sek. Text = "18000" 'Format(Time, "ss") lblsekunden.Caption = Text - Format(Time, "ss") End Sub Um die Computer Uhrzeit anzuzeigen gibt es Now und Format. Syntax: Format(Expression, Format) Expression: Statt Expression muss man Now einsetzen. Format: Hier kann man angeben, was aus Now ausgegeben werden soll. Hier gilt: h: Ausgabe der Stunden (Beispiel "5") hh: Ausgabe der Stunden mit führender 0 (Beispiel "05") n: Ausgabe der Minuten (Beispiel "1") nn: Ausgabe der Minuten mit führender 0 (Beispiel "01") s: Ausgabe der Sekunden ss: Ausgabe der Sekunden mit führender 0 gruss Hagen

Runterzählen	1.319	henni	08.08.04 12:45
Re: Runterzählen	1.113	Marcus W	08.08.04 14:11
Re: Runterzählen	976	henni	08.08.04 14:44
Re: Runterzählen	982	Marcus W	08.08.04 14:54
Re: Runterzählen	993	henni	08.08.04 16:16
Re: Runterzählen	921	Dundi	11.01.05 16:59
Re: Runterzählen	951	Marcus W	14.01.05 19:27
Re: Runterzählen	901	Dundi	16.01.05 10:40
Re: Runterzählen	864	Marcus W	16.01.05 11:23
Re: Runterzählen	897	vbler2005	07.02.05 15:18

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übersicht

Suchen