Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Prozentrechnung
Autor: alert
Datum: 23.03.03 12:42
hallo bluedead007, vielleicht hilft dir dies: 'Berechnen von Mehrwertsteuer! ' 'Benötigt werden 3 Textfelder: 'txtNetto.Text 'txtMwSt.Text 'txtBrutto.Text ' 'In txtMwSt.Text kann der %- Wert dann auch gleich entsprechend geändert werden. ' Private Sub txtNetto_KeyPress(KeyAscii As Integer) ' Bei Betätigung der RETURN-Taste im Netto-Feld wird der Brutto-Betrag augerechnet ' Berechnen des Bruttobetrags ' (Netto = Brutto - (Brutto = Steuer / 100) If KeyAscii = 13 Then If IsNumeric(txtNetto.Text) Then txtBrutto.Text = txtNetto.Text * _ (1 + (txtMwSt.Text / 100)) Else ' Ausgabe leeren txtBrutto.Text = "" txtNetto.Text = "" ' Meldung ausgeben MsgBox "Deine Eingaben sind nicht numerisch !", "+48" End If KeyAscii = 0 End If End Sub Private Sub txtBrutto_KeyPress(KeyAscii As Integer) ' Bei Betätigung der RETURN-Taste im Netto-Feld wird der Brutto-Betrag augerechnet ' Berechnen des Nettobetrags ' (Brutto = Netto - (Netto = Steuer / 100) If KeyAscii = 13 Then If IsNumeric(txtBrutto.Text) Then txtNetto.Text = txtBrutto.Text / _ (1 + (txtMwSt.Text / 100)) Else ' Ausgabe leeren txtNetto.Text = "" txtBrutto.Text = "" ' Meldung ausgeben MsgBox "Deine Eingaben sind nicht numerisch !", "+48" End If KeyAscii = 0 End If End Sub gruß, alert

Prozentrechnung	1.745	bluedead007	19.03.03 14:18
Re: Prozentrechnung	1.287	unbekannt	19.03.03 14:22
Re: Prozentrechnung	1.279	The_Pit	19.03.03 14:30
Re: Prozentrechnung	1.418	bluedead007	19.03.03 14:41
Re: Prozentrechnung	1.497	alert	23.03.03 12:42

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