Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Select-case-Anweisung
Autor: Essistar78
Datum: 09.02.04 19:23
Hi, wo ist der Fehler versteckt??? Das programm funktioniert nicht!!!! Option Explicit Private sknr As String Private cumsatz As Currency Private crechnungsbetrag As Currency Private sngSatz As Single Const S1 As Single = 0.08 Const S2 As Single = 0.05 Const S3 As Single = 0.03 Private Sub cmdberechnung_Click() cumsatz = txtumsatz.Text sknr = txtknr.Text Select Case sknr Case "A", "a" sngSatz = S1 Case "B", "b" sngSatz = S2 Case "C", "c" sngSatz = S3 End Select crechnungsbetrag = cumsatz(1 - sngSatz) txtrechnungsbetrag.Text = Format(crechnungsbetrag, "#,##0.00€") cmdneu.SetFocus End Sub

Select-case-Anweisung	570	Essistar78	09.02.04 19:23
Re: Select-case-Anweisung	335	NeoInferno	09.02.04 19:34
Re: Select-case-Anweisung	398	Essistar78	09.02.04 19:35
Re: Select-case-Anweisung	328	makrele32	09.02.04 19:38
Re: Select-case-Anweisung	397	Essistar78	09.02.04 19:40

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