Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Klappt immernoch nicht
Autor: Denyo
Datum: 07.11.01 12:08
Hab jetzt folgende Prozedure zur Ausgabe: Private Sub Command5_Click() Dim JGehalt As Currency Dim Gesamt As Currency Dim kGesamt As Currency Halt = Date Dauer = DateDiff("n", Start, Halt) MsgBox (Format$(DateDiff("n", Start, Halt), "hh:mm:ss")) Command4.Enabled = True Command5.Enabled = False Command4.Visible = False Command5.Visible = False Uhrzeit.Visible = False Label1.Visible = False Form1.Caption = "Ergebniss" Label3.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True kGesamt = GGehalt / 331 / 24 / 60 Gesamt = kGesamt * Dauer Label3.Caption = "Diese Sitzung hat " & Gesamt & " DM gekostet" Label4.Caption = "Anzahl der Teilnehmer: " & I Label5.Caption = "Durchschnittliches Jahreseinkommen: " & GGehalt / I Label6.Caption = "Kosten pro Minute: " & kGesamt & " DM" End Sub Und die Ausgabe zeigt immernoch, dass Dauer = 00:00:00 und Gesamt = - ****,**** Wenn du mir das Problem lösen könntest, wäre mein kleines Projekt fertig. MfG Denyo

Helfen Bitte!	93	Denyo	05.11.01 11:42
Re: Helfen Bitte!	610	Dieter	05.11.01 12:35
Nee	48	Denyo	05.11.01 12:43
Re: Nee	398	Dieter	05.11.01 12:48
Re: Re: Re:	51	Denyo	05.11.01 12:57
Re: Re: Re:	380	Dieter	05.11.01 13:09
Re: Re: Re:	42	Denyo	05.11.01 14:01
Was genau?	377	Dieter	05.11.01 14:12
Re: Was genau?	42	Denyo	05.11.01 14:32
Kommt drauf an	364	Dieter	05.11.01 14:38
Ich bin zu blöd	43	Denyo	05.11.01 15:19
E-Mail	77	Denyo	05.11.01 15:41
Geht klar	343	Dieter	05.11.01 18:45
Re: Geht klar	43	Denyo	07.11.01 08:04
Hier die Lösung...	393	Dieter	07.11.01 10:04
Klappt immernoch nicht	53	Denyo	07.11.01 12:08
Demo kommt gleich	439	Dieter	07.11.01 12:34

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