Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Runtime.......
Autor: Tobiwan
Datum: 24.05.02 15:36
Dim lngMinute As Long Dim lngHour As Long Dim lngSecond As Long Private Sub Form_Load() Timer1.Interval = 1000 Label1.FontSize = 26 End Sub Private Sub Timer1_Timer() Dim strSecond As String Dim strMinute As String Dim strHour As String lngSecond = lngSecond + 1 If lngSecond = 60 Then lngMinute = lngMinute + 1 lngSecond = 0 End If If lngMinute = 60 Then lngHour = lngHour + 1 lngMinute = 0 End If If lngHour < 10 Then strHour = "0" & lngHour Else strHour = lngHour End If If lngMinute < 10 Then strMinute = "0" & lngMinute Else strMinute = lngMinute End If If lngSecond < 10 Then strSecond = "0" & lngSecond Else strSecond = lngSecond End If Label1.Caption = strHour & ":" & strMinute & ":" & strSecond End Sub

Runtime.......	57	SaYoHh	24.05.02 15:07
Re: Runtime.......	41	Tobiwan	24.05.02 15:10
Re: Runtime.......	39	SaYoHh	24.05.02 15:12
Re: Runtime.......	43	Tobiwan	24.05.02 15:36
Re: Runtime.......	35	SaYoHh	24.05.02 15:42
Re: Runtime.......	37	Tobiwan	24.05.02 15:43
Re: Runtime.......	33	SaYoHh	24.05.02 15:48
Re: Runtime.......	33	Tobiwan	24.05.02 16:35
Re: Runtime.......	35	SaYoHh	24.05.02 16:44
Re: Runtime.......	35	Tobiwan	24.05.02 16:59
Re: Runtime.......	32	SaYoHh	24.05.02 17:16
Muss weg	29	Tobiwan	24.05.02 17:26
Re: Muss weg	69	SaYoHh	24.05.02 17:37

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