Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Programm im Vordergrund
Autor: kelvin
Datum: 06.08.02 07:53
gut, aber irgendwie ist des programm immer noch im hintergrund...*ärger* könnte das ein konflikt mit einer anderen prozedur sein? ich hab mal den gesamten code gepostet (richtig, mein zeitmess-projekt) Option Explicit Private GewähltesDatum As Date Private GewählteZeit As String Private Sub Command1_Click() GewähltesDatum = InputBox("Geben Sie das Datum des Ereignisses ein (z.B.: 03.10.2002 für den dritten Oktober 2002") GewählteZeit = InputBox("Geben Sie die Zeit des Ereignisses ein (z.B.: 10:30:00 für 10 Uhr 30)") End Sub Private Sub Form_Load() ' Der gewählte Zeitpunkt wird in Zeit und Datum genau festgelegt GewähltesDatum = InputBox("Geben Sie das Datum des Ereignisses ein (z.B.: 03.10.2002 für den dritten Oktober 2002") GewählteZeit = InputBox("Geben Sie die Zeit des Ereignisses ein (z.B.: 10:30:00 für 10 Uhr 30)") Label9.Caption = Now ' Timer initialisiern Timer1.Interval = 60 Timer1.Enabled = True Timer1_Timer End Sub Private Sub Timer1_Timer() ' aktuelles Datum / Zeit Label1.Caption = Time Label2.Caption = Date If Label3.Caption = "00:00:04" Then OLE1.DoVerb If Label3.Caption = "00:00:02" Then MsgBox "Selbstständiges Beenden..." If Label3.Caption = "00:00:00" Then End ' Zeit-Differenz berechnen und ausgeben Dim lngSek As Long Dim lngStd As Long Dim lngMin As Long lngSek = DateDiff("s", Now, _ CDate(CStr(GewähltesDatum) + " " + CStr(GewählteZeit))) lngMin = Int(lngSek / 60) lngSek = lngSek - (lngMin * 60) lngStd = Int(lngMin / 60) lngMin = lngMin - (lngStd * 60) ' verbleibende Zeit im Format hh:nn:ss Label3.Caption = Format$(lngStd, "00") + ":" + _ Format$(lngMin, "00") + ":" + Format$(lngSek, "00") ' verbleibende Tage Dim lngDays As Long lngDays = DateDiff("d", Now, GewähltesDatum) Label4.Caption = CStr(lngDays) P.S.: Bitte den verbesserten Code zurück an mich... danke im voraus kelvin

Programm im Vordergrund	78	kelvin	06.08.02 07:15
Re: Programm im Vordergrund	340	Dieter	06.08.02 07:40
Re: Programm im Vordergrund	61	kelvin	06.08.02 07:53
Re: Programm im Vordergrund	284	Elwood	06.08.02 08:28
Re: Programm im Vordergrund	51	kelvin	06.08.02 08:36
Re: Programm im Vordergrund	49	kelvin	06.08.02 08:38
Re: Programm im Vordergrund	282	Elwood	06.08.02 09:08

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